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“中 华 学 习 机 ?杂志 创刊 了 ,请 允许 我 利用 
这 个 机 会 向 她 表示 祝 商 , 布 望 这 份 杂 志 能 够 成 
为 广大 青 、 少 年 通 入党 握 计 和 工 机 技术 的 桥梁 ,成 
为 普及 推广 中 华 学 习 机 的 媒介 ，, 子 祝 她 得 到 成 
功 ! 
有 最近 十 年 来 ,微型 机 的 出 现 和 普及 ,为 计算 
机 辅助 教学 开创 了 全 新 的 时 代 一 一 计算 机 与 基 
础 教育 相 结合 , 计 算 机 辅助 教学 从 高 等 院 校 向 
中 、 小 学 扩大 ， 在 世界 范围 内 形成 教育 改革 的 淹 
流 。 
计算 机 教育 的 内 容 不 仅 限 于 教授 给 中 、 小 
学 生 基 本 的 程序 设计 知识 , 它 还 作为 一 种 先进 
的 教学 工具 , 活 透 到 各 门 课 程 的 教学 过 程 中 去 ， 
在 计算 机 的 良 幕 上 用 图 形 、 图 象 和 文字 可 以 进 
行 形象 化 .趣味 性 的 教学 ,大 大 有 利于 智力 的 开 
发 ,其 至 对 学 龄 前 的 儿童 都 大 有 好 处 。 
近 两 年 来 ,我 国 中 .小 学 计算 机 的 配备 以 每 
年 近 五 万 台 还 度 在 增长 ,CEC- 一 1,CEC 一 1A， 
CEL 一 PC 型 中 华 学 习 机 已 成 为 我 国生 产 的 主流 
机 型 。 当 前 急需 大 量 的 系统 的 适合 中 国情 况 的 
课件 (Course ware) ,以 提供 日 益 增 加 的 用 户 ( 包 
括 家 庭 ) 的 需要 。 外 国 软件 由 于 文化 .背景 .语言 
不 同 , 多 数 不 能 为 我 所 用 ,只 能 作为 借鉴 。 
机 械 电 子 部 计算 机 司 以 及 其 所 属 的 中 国教 
育 电 子 公 司 正 在 大 力 统 筹 安排 ,集中 开发 一 批 
We 我 也 布 望 “中 
华 学 习 机 ?杂志 能 够 成 为 教学 软件 开发 、 推 广 和 
交流 的 一 块 园 地 ,为 普及 和 推广 中 华 学 习 机 ,为 


我 国 的 计算 机 辅助 教学 做 出 应 有 的 贡献 ! 不 村 
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成 立 中 华 学 习 机 协会 倡议 书 


中 华 学 习 机 是 由 我 国 自行 开发 .适合 于 学 校 教 学 和 家 庭 使 用 的 微型 计算 机 。 中 华 学 习 机 事业 立足 于 微 
型 计算 机 与 基础 教育 相 结 合 , 这 也 是 当今 世界 新 技术 革命 和 教育 改革 的 一 大 越 势 。 计 算 机 进入 学 校 走向 家 
旗 , 将 有 力 地 促进 整个 社会 进步 和 发 展 。 

为 使 我 国 在 十 年 或 十 五 年 以 后 走 上 工作 岗位 的 亿 万 中 小 学 生成 为 掌握 信息 社会 技术 和 具有 计算 机 基 

过 础 知识 的 科技 人 才 , 当 前 开发 适合 我 国 国情 的 中 华 学习 机 是 必要 的 .适时 的 。 邓 小 平 同志 提出 “计算 机 的 普 

及 及 要 从 娃娃 抓 起 "的 精神 具有 伟大 战略 意义 。 

在 国家 村 委 、 国 家 教委 、 国 家 计 委 、 原 电子 工业 部 和 中 国 科 协 的 组 织 和 领导 下 ,我们 已 开发 和 生产 出 多 

种 中 华 学 习 机 ,并 开发 和 收集 了 数 百 种 辅助 教学 软件 和 智力 开发 软件 ,但 这 还 远 远 不 能 满足 需要 。 今 后 我 们 

不 仅 要 充分 发 挥 国产 化 ,集约 化 生产 能 力 , 提 供 适合 于 大 、 中 小学、 幼儿 园 、 家 庭 以 及 其 它 领域 需要 的 不 同 

档次 的 中 华 学 习 机 ,而 且 要 开发 和 提供 丰富 的 、 成 龙 配 套 的 教学 软件 和 众多 知识 性 、 趣 味 性 的 智力 开发 软 

9 件 。 我 们 还 要 抓紧 计算 机 师资 队伍 的 培养 ,建立 全 国 性 的 培训 网 和 技术 服务 队伍 ,使 中 华 学 习 机 深入 到 学 校 

和 家 家 户 户 ,真正 成 为 广大 青少年 和 社会 其 它 领 域 的 得 心 应 手 的 智能 工具 。 

我 们 肩负 着 如 此 光荣 而 艰巨 的 历史 使 命 ,我 们 必须 把 研制 开发 .生产 制造 技术 培训 .维修 服 务 、 学 校 教 

育 、 家 庭 应 用 等 各 方面 力量 联合 起 来 ,共同 奋斗 才 有 可 能 完成 这 一 任务 。 为 此 ,我 们 倡议 建立 中 华 学 习 机 协 ; 

会 ,发 展 中 华 学 习 机 事业 ,普及 计算 机 教育 。 

我 们 希望 全 社会 都 来 关心 “中 华 学 习 机 ”事业 , 杭 好 中 华 学 习 机 协会 ,宣传 中 华 学 习 机 ,爱护 中 华 学 习 

生机， 拓 桂 中 理学 习 机 ,推广 中 华 学 习 机 ,为 子孙 进 福 ,为 中 华 民族 的 隐 飞 和 我国 的 兴旺 发达 而 共同 芭 力 备考 
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面向 世界 .面向 未 来 .面向 现代 化 
中 华 学 习 机 新 产品 为 教育 事业 做 贡献 


-- 九 八 九 年 十 二 月 十 五 日 ,中 国教 育 电子 公司 在 北京 科学 会 堂 举办 了 中 华 学 习 机 新 品 发 布 会 ,隆重 推出 国家 
“七 五 "科技 攻关 项 目 和 * 星 火 ” 计 划 项 目 成 果 一 CEC 一 PC.CEC--IA、CEC--IR 等 新 型 产品 ,同时 发 布 七 百 余 种 
最 新 教学 、 益 智 娱乐 ,家庭 应 用 .个 人 事务 管理 等 优秀 软件 ,从 而 为 中 华 学 习 机 事业 的 发 展 和 我 国 计 算 机 教育 的 普 
及 增添 了 光彩 ,为 广大 计算 机 爱好 者 和 亿 万 青少年 带 来 了 福音 。 

中 国教 育 电 子 公司 是 机 械 电子 工业 部 所 属 大 型 高 科技 企业 群体 。 八 七 年 公司 与 清华 大 学 联合 创建 了 高 层次 
的 技术 开发 队伍 。 在 国家 科 委 、 计 委 ,教委 .中 国 科 协和 机 械 电子 部 的 领导 下 ,公司 开发 了 适用 于 我 国 基 础 教育 和 
家 庭 序 用 的 普及 型 微型 计算 机 一 cEC 1 型 .cEC_M 再 中 华 学 习 机 ,组 织 全 国 十 九 家 计算 机 专业 工厂 协作 生 
产 .迄今 ,CEC 型 中 华 学 习 机 已 有 十 余 万 台 的 规模 进入 国内 学 校 和 城乡 人 民 家 庭 ,成 为 日前 产 基 最 大 、 销 量 最 大 的 
国产 微机 系统 。 

今天 发 布 的 CEC 一 PC.CEC--IA、CEC--IR 中 华 学 习 机 和 软件 是 公司 科技 人 员 根 据 国内 教学 用 机 特点 和 国际 
市 场 需求 自行 设计 的 .CEC 一 PC 与 目前 国际 流行 的 1BM--PC 机 型 完全 兼容 ,并 具有 完善 的 汉字 处 理 功能 和 单 色 、 
彩色 多 种 制式 显示 功能 ,结合 国内 个 人 用 机 特点 ,设计 时 采用 超大 规模 集成 电路 ,使 全 部 电路 集中 计 一 块 证 板 上 ， 
并 可 接 普通 电视 机 作 显 示 之 用 。CEC--PC 是 国内 同类 机 型 中 配置 最 齐全 的 微机 产品 。CEC--IA 与 广泛 序 用 于 孝 
学 的 流行 机 种 APPLE-- EE E 和 CEC--1 型 中 华 学 习 机 完全 兼容 ,在 存 贮 基 上 较 CEC- 一 1 型 扩大 了 -- 倍 ,并 配备 五 
笔 字 型 码 和 笔 型 码 ,增加 了 音响 合成 电路 ,是 现行 功能 最 全 的 教学 用 机 .CEC--IR 是 公司 出 口 型 产品 ,该 机 具有 完 
养 的 俄 文字 处 理 功能 。 样 机 试 产后 曾 受到 苏联 和 东欧 等 国 计 算 机 界 和 教育 界 的 青睐。 

中 华 学 习 机 的 发 展 是 一 项 振兴 教育 .振兴 科技 、 振 兴 民 族 工 业 的 大 事 ,是 提高 整个 国民 文化 素质 的 大 所 ,我 们 
呼吁 社会 各 界 有 识 之 士 积极 支持 ,热情 扶植 中 华 学 习 机 事业 的 成 长 与 发 展 。 
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“ 新 闻 报 道 。 


全 国 青 少年 计算 机 冬令 营 在 惠阳 师 专 
隆重 举行 


在 迎接 90 年 代 第 一 个 新 春 佳节 的 日 子 里 ,全 国 青 
少年 计算 机 冬令 营 于 90 年 1 月 10 日 ,在 风 寻 秀丽 .如 
花 似 锦 的 广东 省 惠州 西湖 旁 旦 惠阳 师 专 隆重 开 营 。 这 
次 冬令 营 是 由 国家 教委 .中 国 科 协 和 机 械 电 子 部 联合 
举办 的 ,是 和 目 1984 年 我 国 开展 青少年 计算 机 竞赛 活动 
以 来 ,规模 最 大 .竞赛 项 目 最 多 .所 取得 成 绩 最 好 的 一 
次 全 国 青少年 科技 活动 ,也 是 邓小平 同志 84 年 题词 
“计算 机 的 普及 要 从 娃娃 做 起 "五 年 来 普及 计算 机 教学 
的 一 次 大 检阅 。 

来 自 全 国 30 个 省 市 和 专业 的 代表 队 的 90 名 青 少 
年 计算 机 “高 手 们 "充满 胜利 的 信心 , 轻 伦 愉快 地 步 入 
各 自 的 赛场 ,他 们 决心 在 本 届 计 算 机 冬令 营 的 各 项 竞 
赛 活动 中 , 赛 出 风格 , 赛 出 水 平 。 

程序 设计 竞赛 组 的 赛 题 是 计算 机 辅助 教学 软件 一 
“高 吧 跳伞 " .选手 们 拿 到 脚本 后 ,立刻 进入 良好 的 竞赛 
状态 ,他们 上 凝 神 认 真 地 分 析 脚 本 中 的 每 一 句 话 .每 一 个 
物理 定律 .数学 公式 和 皮 数 曲线 .考虑 软件 的 整体 结构 
和 分 体 结构 ,构思 采用 哪些 模块 和 怎样 实现 脚本 中 的 
教学 意图 。54 双 灵 号 的 小 手 热 练 地 而 着 键盘 , 随 着 
赛场 上 带 有 节奏 和 韵律 的 叶 哇 声 , 监 示 器 的 屏幕 上 显 
出 文字 ,曲线 ,美丽 的 图 形 和 动画 ,使 人 目不暇接 .许多 
带 着 童心 和 雅 气 的 精巧 构思 ,上 反映 出 小 设计 者 们 独 有 
的 好心 ,给 专家 和 记者 们 留 下 了 深刻 的 印象 。 

在 这 一 天 的 克 赛 中 , 既 上 紧张 又 活泼 ,孩子 们 的 创造 
性 思维 得 以 尽情 发 挥 ,动脑 动手 能 力 得 以 充分 表现 ,使 
人 们 想到 一 批 林 来 四 化 大 业 的 开拓 者 在 奋进 .在 移 登 


选手 们 经 过 两 天 的 角逐 ,全 国 青 少年 计算 机 竞赛 
进入 了 紧张 的 评审 阶段 。 评 委 们 本 着 认真 .负责 .公正 
的 态度 ,按照 科学 性 ,效果 与 技巧 ,可 维修 性 和 文档 四 
项 标准 评分 ,并 让 前 11 名 选手 进行 公开 答辩 ,增加 了 
竞赛 的 透明 度 .因此 ,公正 .客观 .科学 是 这 次 竞赛 委员 
会 评审 工作 的 最 大 特点 。 

这 次 竞赛 成 绩 显著 ,出 人 意外 ,是 很 成 功 的 。 竞 赛 
的 题目 难度 较 大 ,达到 国际 奥林匹克 信息 学 竞赛 的 水 
平 , 要 求学 生 充 分 发 挥 联想 创造 性 ,使 用 工具 软件 ， 从 
最 后 得 分 情况 来 看 , 有 半数 以 上 的 队 在 规定 的 时 间 内 
全 部 做 完 , 有 几 个 队 做 得 相当 漂亮 ,专家 们 非常 锅 兴 。 
原 预料 只 有 两 三 个 队 可 以 做 完 , 其 他 队 估计 只 能 完成 
局 部 模块 。 这 一 事实 有 力 地 说 明 ,全国 青 少年 智商 者 大 
有 人 在 ,他 们 使 用 工具 软件 的 水 平 提高 了 ,计算 机 竞赛 
水 平 提高 了 .使 我 们 增强 了 信心 ,看 到 祖国 的 林 来 和 和 希 
望 ,我 们 中 华 民 族 有 自立 于 世界 民族 之 林 的 能 力 ,我 们 
同样 有 自立 于 世界 科学 知识 之 林 的 能 力 。 

国家 对 这 次 全 国 青少年 计算 机 冬令 营 非常 重视 ， 
中 共 中 央 政 治 局 委员 ,国家 教委 主任 李铁映 问 志 为 这 
次 活动 题词 :中 小 学 都 要 努力 普及 计算 机 ". 全 国政 协 
副 主 席 王 任 重 同志 出 席 开 营 式 并 作 了 重要 讲话 ,他 和 硕 
望 参赛 青少年 选手 努力 掌握 现代 化 技术 ,做 有 理想 有 
文化 的 一 代 新 人 ,做 共产 主义 事业 的 接班 人 .中 国教 育 
学 会 会 长 ,中华 学 习 机 普及 协会 理 书 长 张 健 回 志 , 机 械 
电子 部 计算 机 司 司 长 李 轮 同志 等 领导 出 席 了 冬令 营 ， 
并 作 了 重要 讲话 和 给 获奖 的 优秀 选手 们 发 奖 。 

本 刊 记 者 石 开元 王 成 


第 五 届 全 国 青少年 计算 机 竞赛 教师 优秀 论文 


























北京 16l 中 学 | 工 冲 
北京 106 中 学 威 小 玲 
华东 师 大 化 学 系 张 伟 敏 
吉林 师 大 附中 孙 维 玉 
志 林 省 教育 学 院 刘晓峰 
芜湖 十 一 中 汪 小 祥 
加 三 铁 - 中 奖 ” 辉 
_ 鲍 州 市 教 去 计 算 站 | ， 邹 春 润 
广西 南宁 市 二 中 书 国 全 
上 西 电 化 教育 馆 苏 芳 来 
广西 柳州 高 中 ” 庞 中 坚 
昆明 市 青少年 微电脑 协会 吴 建 云 ” 刘 过 贵 





对 我 国 中 学 计算 机 教育 两 类 问题 的 初步 探讨 


福州 市 中 学 计算 机 教育 发 展 规划 的 科学 性 





在 LOGO 语言 教师 中 ,发 展 学生 能 力 
在 计算 机 课外 活动 中 培养 人 才 


微机 在 中 学 教育 中 的 初步 应 用 





















程序 设计 训练 的 方法 和 体会 





浅 谈 青少年 计算 机 程序 设计 竞赛 辅导 
在 计算 机 教学 中 如 何 引导 学 生 建 立 数学 模型 
辅助 教学 的 初次 尝试 






全 国 青少年 计算 机 冬令 营 获 奖 名 单 


软件 设计 竞赛 获奖 名 单 
一 等 奖 : 厦 “ 门 蔡 天 字 陈 溢 
福 建 李 艰 黄 厅 
二 等 奖 : 湖 南 葵 炜 赵 坚 
浙江 马 莹 累 ” 痉 宇 晨 
陕 西 李 波 王 让 
三 等 奖 : 安 答 王波 器 蔡 
上 海 搞 春 胡 对 
广东 胡 钊 徐 瑞 读 
辽 宁 尼 海 峰 六 午 
蛙 龙 江 襟 金 杨 樟 
解放 军 王 湘 新 齐 刚 
优秀 奖 : 大 庆 油 田 某 明 亮 韩 冰 
海 南 葵 海 宁 符 春 全 
山东 刘 俊 江 邦 海 
山 西 起 俊 才 南 饥 
广西 陈 俊 罗 开 
四 “ 川 陈 肖 吴 波 涌 
云南 解 颖 美 志波 
石 油 刘 大 伟 齐 健 
甘 淖 定 晓 隆 王 春 波 
河 南 张 起 炽 李 芳 
河 北 张 怒 明 李 区 
吉 . 林 新 晓 明 王 稳 
贵州 孙 铁 成 付 台 
湖 北 韩 昌 哲 韩 强 
铁路 吕 建 新 苏 益 南 
硬件 组 装 奖 
一 等 奖 : 北 京 吴 胎 
山东 周 ” 翔 
二 等 奖 : 辽 宁 李 继 泽 
上 海 揭 国 斌 
厦门 程 卫 害 
广东 关 本 立 
解放 笠 金松 
福 建 唐 越 
石油 王 勇 
优秀 奖 : 吉 林 李 庆 字 


浙江 姚 并 
安 ” 德 汪 洪 涛 
湖北 杨 叶 昊 
陕西 震 各 
车 肃 杨 请 
四 川 刘 启 元 
广西 万 建国 
铁路 李 力 
置 龙 江 王 晚 松 
青 鸟 梁 峰 
河 北 尹 卫 方 
云南 曾 顿 飞 
河 南 陈 放 
宁 夏 黄 琛 
农 时 吕 “ 枫 


MP 一 !1 微电脑 开发 应 用 奖 


一 等 奖 : 


二 等 奖 : 


铁道 部 广州 铁路 一 中 ;MP 一 1! 微 
机 煤气 报 侣 条 统 
广西 省 代表 队 :MP 一 1 催 机 通用 
输入 /输出 接口 

福州 三 中 :MP 一 1 微机 与 中 华 学 
习 机 数据 传送 接口 

拓 门 一 中 :MP 一 1 微机 数据 传送 
卡 


:青岛 九 中 :MP 1 微机 TTL 系 列 
芯片 测试 系统 

国防 科技 大 学 附中 :MP- 1 微机 
时 闻 程 挖 条 统 

胜利 油田 一 中 :MP 一 1 微机 自动 
升 国 续 控 制 系统 


广州 电子 职业 中 学 :MP 一 1 微机 
内 存 的 扩充 

沈阳 市 二 十 中 :MD -1 微机 键 走 
的 扩充 

山东 潍坊 一 中 :竞赛 抢答 器 


中 华 学 习 机 CAI 软件 开发 工具 单项 奖 


北京 队 ”广西 队 


下 


1 


等 
奖 








因 数 与 图 象 
气体 性 质 自我 测试 


巧 其 饮料 
同音 字 辩 析 

中 学 英语 词汇 练习 
ACE 软件 制作 工具 
结构 化 BASIC 


横 波 与 纵波 


高 中 生物 教学 目标 一 一 学 生 目 我 评定 


多 功能 英语 教学 

中 学 语文 成 语 练习 

中 西 文 全 兼容 BASIC 
TOOLSOFT CAL 工具 软件 
超级 汉字 文章 编辑 系统 
华容 道 


游标 卡尺 和 螺旋 测 微 器 的 读数 练习 
振动 与 波 

大 气 环流 

高 中 物理 复习 -一 -光学 

扼 数 作 图 及 郴 数 图 象 

英语 系列 学 习 软 件 

心脏 的 构造 及 工作 原理 

汉字 形体 演变 

通用 数据 库 系统 

中 华 学 习 机 图 形 编 辑 系统 

&CODE 汉字 处 理 系统 

超级 音乐 合成 器 
计算 机 辅助 设计 -- AUTO CAD 
A. F. C-- - -WORDSTAR 

维吾尔 文字 软件 维 汉学 校 成 绩 管 理 
动脑 筋 麻 法 阵 

围棋 2.0 

学 生成 绩 管 理 系统 

学 生成 绩 管 理 

音乐 黑板 


获 银 奖 软件 名 单 


软件 名 称 类 别 






作者 姓名 和 单位 名 称 









北京 1681 中 教师 王 惠 
上 海 54 中 学 生 胡 颗 















北京 181 中 学 生 和 尹 松 雷 
北京 教育 软件 研究 开发 中 心 教师 刘 庆 俄 刘 胜 利 
北京 教师 姚 闭 

上 海 ”学 生 余 志 健 . 居 晓 、 丁 胜 

北京 清华 大 学 ” 掉 小 越 等 








北京 市 13 中 教师 ” 陈 春 雷 
上 海风 华中 学 教师 朱 道 伟 
上 海 晋 元 中 学 ”教师 质 根 新 
上 海 师 大 附中 教师 张 渭 元 
河南 洛阳 探矿 三 队 ” 陈 盛 旋 
清华 大 学 ”学生 ” 潘 字 东 等 
四 川 雅安 教育 学 院 ” 黄 一 禾 
北京 161 中 学 生 王 兴 健 






学 生 “” 余 志 健 







学 生 ” 黄 亮 








上 海 华东 师 大 
北京 清华 大 学 
广西 南宁 三 中 
北京 清华 大 学 
北京 大 学 附中 
山东 滩 坊 科技 大 厦 
福州 五 中 

北京 教育 软件 研究 开发 中 心 教 师 刘 庆 俄 刘 胜 利 
北京 门头沟 大 峪 中 学 教师 俞 咪 华 

北京 铁道 部 科学 研究 院 ” 缴 鉴 . 李 焕 民 

湖北 大 学 教师 王 允 利 


教师 ” 舒 信 隆 
学 生 ” 李 文 丰 
教师 ”林涛 
张彤 翔 
学 生 ” 江 晓 轮 
苏 琳 


学 生 ” 邓 宇 春 等 


北京 大 学 附中 ”学生 沈 国 瑛 
沈阳 团 省 委 计 算 站 技术员 马 玉 误 
乌 角 木 齐 市 ”教师 王 秉 安 

育 岛 海洋 大 学 ” 张 天 邀 

成 都 市 成 人 教育 学 院 ” 傅 权 平 
武汉 六 中 教师 胡 汉 华 

上 海 市 徐汇 区 少 科 站 ” 郭 崇 烈 
北京 101 中 陈 维 海 


中 华 学 习 机 协会 章程 


第 一 章 


总 则 


第 一 条 本 协会 名 称 为 中 华 学 习 机 协会 
(英文 名 :CHINA EDUCATIONAL COMPUTER 
ASSOCILATION ) 。 

第 二 条 ”本 协会 由 教育 部 门 . 中 华 学 习 机 
系列 产品 的 研制 .生产 、 枝 术 服 务 部 门 和 中 华 
学 习 机 用 户 自愿 组 成 。 国 家 主管 部 门 已 确认 其 
合法 权益 ,是 社会 图 体 法 人 。 协 会 遵守 国家 法 
律 , 页 彻 党 和 国家 的 方针 政策 ,自主 开展 活动 。 

第 三 条 本 协会 宗旨 是 :贯彻 邓小平 同志 
提出 的 “计算 机 普及 要 从 娃娃 做 起 ”的 指示 , 促 
进 计 算 机 技术 与 基础 教育 相 结 合 , 以 中 华 学 习 
机 为 基础 ,实现 教学 手段 、 教 学 工具 的 现代 化 ， 
实现 计算 机 从 单纯 的 投资 类 产品 向 消费 类 产 
品 的 转化 ,实现 计算 机 应 用 的 社会 化 .家 庭 化 ， 
进一步 推动 我 国 计 算 机 教育 事业 的 发 展 , 加 速 
全 体 国 民 特 别 是 亿 万 青少年 文化 修养 和 素质 
的 提高 ,为 祖国 四 化 建设 培训 和 储备 人 才 而 做 


出 贡献 。 
第 二 章 任 务 

第 四 条 协会 围绕 中 华 学 习 机 产品 ,面向 
科研 .面向 生产 .面向 教育 .面向 应 用 .发挥 桥 
梁 和 纽带 作用 ;反映 研制 和 生产 部 门 、 广 大 用 
户 和 教育 部 门 的 愿望 和 要 求 , 传 达 贯 彻 政府 部 
门 的 指示 精神 。 

第 五 条 协会 采取 各 种 有 效 形 式 ,致力 于 
发 展 中 华 学 习 机 的 效益 ,提高 中 华 学 习 机 应 用 
水 平和 普及 率 。 

六 条 本 协会 的 具体 工作 内 容 是 : 

(一 ) 协 助 政 府 主 管 部 门 组 织 计 算 机 教育 
的 政策 研究 ,探讨 我 国 计 算 机 教育 的 途径 、 方 
法 和 模式 。 

(二 ) 对 全 国 计 算 机 教育 应 用 情况 进行 调 
查 , 了 解 对 教育 用 计算 机 硬件 .软件 需求 情况 。 

(三 ) 组 织 专家 讲座 ,开展 技术 咨询 、 技 术 
交流 、 信 息 交 流 。 

(四 ) 组 织 技术 协作 .技术 培训 和 维修 服 
务 ， 特 别 是 中 小 学 教师 的 在 职 培训 。 

(五 ) 组 织 中 华 学 习 机 系统 和 软件 应 用 成 
果 的 评 优 和 推广 。 

(六 ) 组 织 用 户 对 中 华 学 习 机 生产 厂家 及 


产品 信誉 的 评议 。 

(七 ) 设 置 中 华 学 习 机 银 奖 ,向 成 绩 车 著 的 
开发 与 应 用 单位 和 个 人 颁发 。 

( 八 ) 向 有 关 部 门 反 映 研 制 生产 单位 、 教育 
部 门 和 用 户 的 意见 和 建议 。 

( 九 ) 承 办 政府 部 门 及 其 它 团 体委 托 的 事 
项 。 

(十 ) 发 动 社 会 各 界 力量 ,支持 和 资助 中 华 
学 习 机 的 攻 及 和 推广 活动 。 

(十 一 ) 出 版 中 华 学 习 机 的 软 硬 件 章 料 、 从 
书 .刊物 和 宣传 品 等 。 

第 三 章 会 员 

务 七 条 本 协会 由 团体 会 员 和 个 人 会 员 
( 含 国 际会 员 ) 组 成 , 凡 参 与 研制 \ 生 产 中 华 学 
习 机 的 部 门 和 个 人 ,使 用 中 华 学 习 机 的 部 门 和 
个 人 ,为 中 华 学 习 机 进行 技术 培训 和 技术 服务 
的 部 门 和 个 人 , 痪 成 本 协会 章程 并 按期 交纳 会 
党 者 , 均 可 申请 入 会 。 

第 八条 个 人 会 员 权 利 ， 

(一 ) 赁 会 员 证 可 优先 、 优 患 购买 中 华 学 习 
机 看、 软件 产品 ， 

(二 ) 赁 会员 证 可 优先 参加 协会 举办 的 技 
术 讲 座 、 培 训 和 技术 服务 活动 。 

(三 ) 可 参加 协会 举办 的 全 体会 员 大 会 及 
各 类 大 型 社会 活动 。 

(四 ) 可 在 协会 会 刊 上 优先 发 表 本 人 的 文 
章 。 

(五 ) 可 通过 协会 向 国内 外 兄弟 行业 协会 、 
学 会 取得 联系 。 

(六 ) 个 人 的 创造 发 明 可 通过 协会 优先 得 
到 有 关 部 门 的 鉴定 。 

(七 ?享有 表决 权 、. 选举权 .被 选举 权 。 

( 八 ) 有 退会 的 自由 。 

第 九条 团体 会 员 权 利 ; 

(一 ) 优 先 获 得 各 种 新 型 中 华 学 习 机 软 、 不 
件 产 品 。 

(二 ) 生 产 厂 家 可 优先 享受 产品 宣传 和 市 
场 信 息 。 

(三 ) 优 先 参加 协会 组 织 的 技术 接 训 和 技 
本 服务 活动 。 

(四 ) 优 罕 享 用 协会 出 版 的 资料 、 刊物 和 协 
会 组 织 推 广 的 优秀 软件 和 扩展 配件 产品 。 

(五 ) 以 优 种 价格 获得 协会 内 的 技术 成 果 
和 各 种 技术 资料 。 


六 ) 有 权 向 协会 提请 鉴定 或 评审 本 单位 
或 个 人 的 技术 成 果 , 协 会 负责 向 上 一 级 单位 中 
报 、 推 荐 优秀 的 技术 成 果 , 并 联系 有 俊 转 让 。 

(上 上 ) 有 权 对 协会 各 级 领导 机 关 的 工作 提 
出 建议 和 批评 。 

( 八 ) 可 通过 协会 向 各 级 领导 部 门 反 映 有 
. 关 技 术 政 策 问题 。 

( 九 ) 可 通过 协会 提出 解决 中 华 学 习 机 的 
质量 问题 

(十 ) 行 使 表决 权 、 选举权 、 被 选举 权 。 

(十 一 ) 有 退会 的 自由 。 

第 十 条 “本 协会 会 员 的 义务 : 

(一 ) 遵 守 国 家 法 律 ,遵守 协会 章程 ,按期 
交纳 会 蜗 , 积 极 承 担 协 会 分 派 的 任务 ,主动 过 
加 协会 的 各 项 活动 。 

(二 ) 积 极 总 结 中 华 学 习 机 开发 生产 和 推 
广 应 用 的 经 验 ,向 协会 提供 有 关中 华 学 习 机 的 
各 种 信息 。 

(三 ) 积 极 支持 协会 刊物 ,订阅 协会 刊物 。 

(四 ) 积 极 支持 由 教委 和 机 电 部 组 织 评 审 
哟 优秀 软件 的 发 行 工作 ,做 好 宣传 和 代销 工 
作 , 不 得 非法 找 贝 和 复制 ,保护 作者 的 权益 。 

(五 ) 用 户 与 生产 部 门 会 员 应 经 常 进行 质 
量 跟 踪 和 反馈 。 企 业 应 在 经 济 上 支持 协会 活 
动 。 

(六 ) 发 扬 协作 精神 ,加 强 技术 交流 。 章 重 
别人 劳动 ,不 泄露 他 人 技术 成 采 。 

第 十 一 条 申请 入 会 或 退会 , 均 榨 本 会 有 
关 规 定 办 理 手续 。 

第 十 二 条 ”对 壕 反 协会 章程 的 会 员 , 应 进 
行 批评 ,情节 严重 者 ,理事 会 劝 其 退会 或 予以 


除名 。 
第 四 章 ”会员 代 表 大 会 和 理事 会 

第 十 三 条 中 华 学 习 机 协会 的 最 高 权力 
机 关 是 全 体会 员 代 表 大 会 。 会 员 代 表 大 会 闭会 
期 间 , 由 代表 大 会 产生 的 理事 会 负责 协会 的 工 
作 。 理 事 会 每 三 年 改选 一 次 。 

第 十 四 条 理事 会 设 理事 长 、 副 理事 长 、 
常务 理事 。 常 务 理事 由 理事 会 选举 产生 。 理 事 
会 将 聘请 名 誉 理事 长 和 若干 顾问 。 在 理事 会 半 
会 期 间 , 第 务 理事 会 主持 协会 的 日 常 工作 。 


第 五 章 ”常设 办 事 机 构 
第 十 五 条 ”中华 学 习 机 协会 的 常设 办 事 
机 构 为 协会 秘书 处 ,负责 协会 的 日 常 工作 ,。 科 
书 处 在 常务 理事 会 领导 下 ,由 秘书 长 主持 工 
作 。 


第 十 关 条 ”秘书 处 的 任务 及 权限 由 理事 
会 决定 。 

第 十 七 条 本 协会 下 设 车 二 工作 委员 会 
和 专业 技术 委员 会 ,在 理事 会 领导 下 开展 工 
作 。 

第 六 章 “” 地 区 协会 和 分 会 

第 十 八条 省 市、 自治区 协会 是 中 华 学 
习 机 协会 下 属 的 协会 组 织 。 

第 十 九条 省 .市 .自治 区 协会 成 立 须 经 
总 会 审批 ,全 称 为 “中 华 学 习 机 协会 XXX 协 
会 >。 地 区 性 分 会 ,由 省 市、 自治 区 协会 审批 ， 
并 报 总 会 备 案 ,全 称 为 “中 华 学 习 机 协会 
X XXX 分 会 >。 全 称 中 不 再 出 现 省 .市 字样 。 

省 级 协会 刻 制 公章 ,应 经 总 会 批准 ;分 会 
刻 制 公章 经 省 级 协会 批准 。 

第 二 十 条 协会 各 级 理事 会 ,每 三 年 改选 
一 次 ,由 代表 大 会 民主 协商 选举 产生 。 在 大 会 
闭幕 期 间 , 理 事 会 成 员 可 根据 情况 变化 和 工作 
需要 ,由 同 级 理事 会 决定 变更 和 增补 。 省 级 协 
会 理事 变更 应 报 总 会 备案 。 

第 七 章 经 费 
第 二 十 一 条 协会 活动 经 蜗 主 要 来 源 ， 
(一 ) 协 会 会 员 单 位 和 个 人 交纳 会 费 ; 
(二 ) 资 助 和 捐赠 ,包括 政府 有 关 部 门 给 予 

的 资助 ,国内 外 厂商 、 轩 体 或 个 人 的 自愿 捐赠 ; 

(三 ) 有 侵 服 务 收 入 ,包括 咨询 服务 、 出 版 
刊物 、 编 辑 资 料 、 举 办 展览 等 收入 ,承办 政府 部 
门 和 其 它 单位 委托 的 工作 所 获 收 入 ; 

(四 ) 技 术 成 果 推 广 . 协 作 攻 关 、 技 术 支 拥 、 
技术 市 场 收 益 ; 

(五 ) 其 它 正 当 收 入 。 

第 二 十 二 条 会 员 缴 纳 会 曲 及 管理 办 法 
另 订 细则 。 

第 二 十 三 条 各 级 协会 的 挂靠 单位 ,应 设 
立 财 会 专 帐 ,保障 经 费用 于 协会 工作 ,不 得 所 
作 他 用 。 

第 八 章 附 则 
第 二 十 四 条 本 章程 经 全 体会 员 代 表 大 

会 讨论 通过 并 报国 家 主管 部 门 备 案 后 生效 ,下 
属 协会 不 再 另 订 章程 。 

第 二 十 五 条 本 章程 的 解释 权 属 中 华 学 

习 机 协会 理事 会 。 


中 华 学 习 机 协会 主要 活动 介绍 


1. 颁发 中 华 学 习 机 银 奖 

中 华 学 习 机 银 奖 是 中 华 学 习 机 协会 专 设 
的 社会 性 大 奖 , 其 目的 是 表彰 国内 外 对 中 华 学 
习 机 事业 的 发 展 和 计算 机 普及 教育 作出 重大 
贡 献 的 集体 和 个 人 。 银 奖 分 综合 奖 和 专项 奖 ， 
最 高 奖 为 纯 银 制 成 的 “中 华 银 杯 ”。 

中 华 学 习 机 银 奖 每 年 颁发 一 次 ,获奖 者 可 
享受 协会 荣誉 会 员 资 格 并 拥有 相应 待 和 遇 。 

2. 全 国 青少年 计算 机 基础 知识 竞赛 

在 全 国 范 围 内 组 织 青 少年 进行 计算 机 基 
础 知识 竞赛 ,是 中 华 学 习 机 协会 与 其 有 关 协 
会 .学 会 共同 举办 的 大 型 社会 活动 。 竞 赛 优胜 
者 可 获得 作为 奖品 的 中 华 学 习 机 产品 。 

竞赛 活动 每 年 举办 一 次 ,形式 主要 是 在 有 
关 报 刊 上 登载 试题 ,从 应 试 者 中 选拔 。 

3. 全 国 青少年 计算 机 程序 设计 竞赛 

为 青少年 软件 爱好 者 提供 显 串 身手 的 机 
会 ,为 我 国 的 计算 机 软件 事业 培养 后 备 人 才 。 
协会 将 与 有 关 学 会 .协会 共同 举办 ,每 年 一 次 。 

-竞赛 优胜 者 可 获得 中 华 学 习 机 产品 作为 
奖品 。 
4. 少年 电脑 之 角 
为 使 青少年 电脑 爱好 者 有 一 个 互相 学 习 
与 交流 经 验 的 场所 ,协会 将 在 北京 市 少年 宫 开 
辟 “ 少 年 电脑 之 角 ”。 由 长 期 从 事 中 小 学 计算 机 
教育 的 老师 亲临 辅导 ,并 组 织 参 加 者 交流 中 华 
学 习 机 软 硬 件 开发 .维修 、 应 用 的 心得 体会 , 进 
行业 余 爱 好 者 开发 的 软件 产品 的 交流 和 登 
记 。 

5. 计算 机 爱好 者 夏令 营 

在 嗜 假期 间 为 中 小 学 计算 机 爱好 者 举办 
夏令 营 活 动 。 活 动 地 区 以 计算 机 的 生产 、 科 研 
或 应 用 较 好 的 ,又 毗邻 名 胜 的 地 区 为 主 , 使 参 
加 夏令 营 的 青少年 们 在 休息 和 娱乐 中 了 解 我 
国 计 算 机 事业 的 发 展 概况 ,增长 感性 知识 。 


6. 青少年 计算 机 教育 基金 会 

发 动 社会 各 界 及 海内 外 关心 青少年 计算 
机 教育 事业 的 人 士 , 捐 助 用 于 青少年 计算 机 教 
育 的 资金 ,有 重点 地 在 国内 主要 城市 的 中 小 学 
校 分 批 建设 计算 机 教室 ,幼儿 园 配 置 电脑 游戏 
机 ,为 祖国 的 现代 化 建设 进行 社会 性 的 智力 开 
发 投资 和 培育 人 才 做 出 贡献 。 

7. 中 华 学 习 机 硬 、 软 件 技术 培训 

以 中 华 学 习 机 产品 为 主 , 利 用 每 年 寒 、 署 
假 举 办 青少年 .中 小 学 教师 、 家 长 等 不 同 层 次 
的 计算 机 看 、 软 件 培训 班 , 米 请 计算 机 专家 、 教 
师 授 课 。 培 训 班 结业 后 由 协会 颁发 证 书 。 

与 有 关 学 会 .协会 共同 举办 “ 跟 我 学 装 微 
电脑 ?讲座 ,由 本 协会 提供 教材 和 套件 。 

38. 产品 信誉 评测 

组 织 中 华 学 习 机 用 户 对 国内 生产 的 各 型 
学 习 机 及 国外 同类 产品 进行 产品 信誉 评测 , 公 
市 评测 分 数 , 以 沟通 企业 与 用 户 的 双向 交流 。 

9. 产品 质量 评 囊 

组 织 中 华 学 习 机 用 户 对 国内 生产 的 中 华 
学 习 机 进行 质量 评测 ,公布 评测 结果 ,及 时 将 
质量 问题 反馈 到 生产 厂家 ,以 维护 产品 信誉。 

质量 评测 中 的 优胜 者 ,可 列 入 中 华 学 习 机 
“ 银 奖 ”候选 名 单 。 

10. 创办 中 华 学 习 机 会 刊 、 会 报 .专辑 

交流 中 华 学 习 机 系统 和 软件 方面 的 技术 ， 
沟通 信息 ,提供 资料 ,介绍 国内 计算 机 市 场 和 
教育 类 电子 产品 的 发 展 概况 。 

11. 建立 中 华 学 习 机 软件 登录 中 心 

为 收集 和 推广 软件 专业 人 员 、 广 大 青少年 
及 业余 爱好 者 开发 的 中 华 学 习 机 软件 , 拟 在 国 
内 各 大 城市 建立 软件 登录 和 初审 ,然后 上 报 软 
件 登 录 中 心 , 交 中 华 学 习 机 软件 评审 委员 会 终 
审 ， 合 格 者 正式 公开 发 行 。 凡 由 登录 上 报 的 软 
件 可 通过 登录 中 心 进行 有 偿 交 流 。 


“ 新 闻 报 道 。 


华 光 也 型 计算 机 -一 一 激光 汉字 编辑 排版 条 统 
通过 设计 生产 定型 敬 定 


由 潍坊 计算 机 公司 .北京 大 学 .邮电 部 杭州 通信 设 
备 厂 .中 国 科 学 院 长 春光 机 所 .昆仑 电子 印刷 设备 服务 
公司 等 单位 研制 的 华 光 V 型 计算 机 -一 激光 汉字 编辑 
排版 系统 一 九 八 九 年 十 二 月 二 十 六 日 在 北京 通过 设计 
生产 定型 鉴定 。 

华 光 型 计算 机 -激光 汉字 编辑 排版 系统 是 国家 
“七 五 "重点 攻关 项 目 , 是 我 国 印刷 出 版 行业 脱离 传统 
铅 排 作 业 进 入 计算 机 排版 的 关键 技术 措施 之 -。 

一 九 七 四 年 ,周恩来 总 理 亲 自作 出 安排 ,委托 当时 
的 第 四 机 械 工业 部 等 单位 作出 规划 ,开发 电子 排版 技 
术 , 使 我 国 的 新 闻 出 版 印刷 行业 进入 电脑 化 。 十 王 年 
来 ,这 一 宏伟 规划 已 初步 得 到 实现 。 自 一 九 八 六 年 华 光 
了 型 鉴定 以 来 , 华 光 型 计算 机 激光 照排 系统 技术 又 有 
了 重大 的 发 展 。 应 该 说 : 华 光 型 是 华 光 系 统 15 年 来 
发 展 中 的 一 个 重要 转折 点 ,是 华 光 系统 走向 成 熟 ,真正 
成 为 一 个 商品 的 标志 。 

华 光 W 型 系统 与 重型 系统 相 比 ,在 以 下 诸 方面 有 
了 较 明 显 的 进展 :采用 超大 规模 集成 电路 技术 ,用 专用 
芯片 实现 了 王选 教授 等 人 的 汉字 信息 压缩 及 高 速 还 原 
的 专利 技术 ,在 高 质量 字形 信息 的 压缩 倍数 .字形 复原 
速度 .字形 变化 和 旋转 功能 、 铺 网 功能 和 体积 小 等 主要 
方面 均 居 国 内 外 领先 地 位 ;采用 大 屏幕 交互 式 排版 技 
术 , 使 报纸 排版 软件 又 向 前 迈进 了 -- 步 ,继续 保持 国内 
外 领先 地 位 ; 华 光 W 型 是 世界 上 第 一 个 采用 大 屏幕 组 
版 ,并 直接 修改 通 真 大 样 的 中 文 报纸 组 版 系统 ; 华 光 
型 是 世界 上 唯一 的 文字 .网 纹 .花边 和 图 片 一 起 整 页 编 
排 和 整 页 输出 的 中 文 报纸 编排 系统 :采用 图 形 处 理 技 
术 , 使 各 类 出 版 物 中 的 黑白 图 片 和 电子 线路 图 .机 械 图 
等 十 分 方便 地 排版 ,并 与 文字 内 容 同 时 输出 ;采用 先进 
的 工艺 技术 ,使 照排 系统 的 核心 部 件 一 一 照排 控制 器 
的 稳定 性 能 大 大 提高 ,超过 了 通用 微机 的 平均 无 故障 
运行 时 间 ,形成 字形 生成 速度 达 700 多 字 / 秒 的 能 力 ， 
远 远 高 于 任何 其 它 系 统 , 从 而 使 华 光 型 系统 成 为 世 
界 上 输出 速度 最 高 的 中 文 精密 照排 系统 和 实际 输出 速 
度 最 高 的 中 文 台式 出 版 系统 ( 轻 印 刷 )。 采 用 即 有 批 处 
理 又 有 交互 式 软件 和 集成 软件 的 技术 ,研制 成 功 新 一 
代 的 具有 世界 水 平 的 排版 软件 ; 华 光 V 型 字体 字号 齐 
全 ,字形 修饰 丰富 ,版面 活泼 多 变 ,排出 的 报纸 在 版 面 
美观 多 变 方面 居 领 先 地 位 ; 华 光 型 是 一 个 可 舍 的 报 
纸 编排 系统 ,也 是 国内 唯一 的 实际 用 于 编排 日 报 的 系 
统 . 现 在 系统 具有 22 种 字体 和 22 种 字号 ,并 具备 繁体 
字 排 版 功能 。 

总 之 , 华 光 型 计算 机 一 一 激光 汉字 编辑 排版 系 
统 , 在 系统 硬件 .软件 技术 水 平 、 排 版 软件 的 功能 ,版面 
质量 .加 形 排版 功能 和 图 形 质 量 以 及 系统 的 适应 范围 


等 主要 方面 均 已 达到 国内 外 领先 地 位 ,使 系统 真正 达 
到 了 全 版 式 . 多 文 种 排版 功能 。 

自 1986 年 华 光 且 型 系统 鉴定 以 来 , 华 光 W 型 电子 
出 版 系统 共有 500 多 套 已 用 于 新 闻 .出 版 .印刷 单位 。 
并 已 销 往 香 港澳 门 . 台 湾 . 新 加 坡 等 地 ,系统 总 销售 额 
已 达 2. 2 亿 元 ,创利 税 2300 多 万 元 ,创汇 近 百 万 元 。 并 
用 国产 照排 系统 替代 进口 设备 ,已 为 国家 节约 外 汇 开 
支 6500 多 万 元 。 预 计 到 1990 年 上 半年 ,北京 地 区 的 全 
部 日 报 ,所 有 的 省 报 和 省 会 所 在 地 的 日 报 或 晚报 ( 除 一 
两 家 外 ) ,将 全 部 采用 华 光 照排 系统 ,原来 已 采用 进口 
照排 系统 的 五 家 新 闻 单 位 , 现 已 有 四 家 转 而 采用 华 光 
NV 型 照排 系统 。 

稳定 可 靠 运行 的 w 型 机 系统 ,在 报纸 书刊 杂志 排 
版 方面 发 挥 了 很 好 的 作用 , 带 来 了 明显 的 经 济 、. 社 会 效 
益 . 这 些 单位 采用 了 计算 机 排版 技术 后 ,厂房 面积 可 减 
少 68% ,人 员 减 少 60% ,电力 消耗 减少 68.7% ,书刊 
成 本 下 降 了 17. 3% ,而 且 每 年 还 为 国家 节约 了 一 大 笔 
用 于 治理 铅 污染 ,环境 .劳动 保护 方面 的 开支 。 

这 一 系统 的 研制 ,始终 受到 党 和 国家 领导 同志 的 
关心 ,邓小平 同志 曾 批示 :应 加 支持 ”, 方 毅 同 志 指 出 : 
这 是 印刷 技术 从 铅 与 火 的 时 代 到 光 与 电 的 时 代 的 巨大 
转变 。 胡 乔木 . 周 培 源 等 领导 同志 也 多 次 亲临 科研 生产 
基地 ,对 科技 工作 者 给 予 巨 大 的 鼓励 。 

十 五 年 来 , 这 一 项 目 一 直 是 在 机 电 部 ( 原 电 子 部 ) 
的 直接 领导 下 进行 的 , 原 国家 经 委 和 现在 的 国务 院 重 
大 装备 办 公 室 是 这 一 项 目的 上 级 领导 ,从 83 年 以 来 ， 
给 予 这 一 项 目 有 力 的 支持 和 领导 ,国家 计 委 、 科 委 和 教 
委 对 这 一 项 目 也 给 予 了 多 方面 的 关心 和 帮助 。 几 年 来 ， 
这 一 项 目 获得 第 十 四 届 日 内 瓦 国 际 发 明 展 览 金 牌 、 
1987 年 国家 科技 进步 一 等 奖 、1989 中 国 专 利 金奖 、 北 
京 国际 博览 会 金奖 等 近 二 十 项 大 奖 , 没 有 上 级 领导 的 
关怀 、 帮 助 . 支 持 , 这 些 成 绩 的 取得 是 不 可 能 的 。 

巩 男 十 多 年 来 形成 的 华 光 集团 内 部 联合 ,并 朝 华 
光电 子 出 版 系统 产业 集团 方向 发 展 , 是 这 一 系统 成 功 
的 保证 。 潍 坊 计算 机 公司 .北京 大 学 .邮电 部 杭州 通信 
设备 厂 . 中 国 科 学 院 长 春光 机 所 .昆仑 电子 印刷 设备 服 
务 公司 等 单位 将 进一步 团结 一 致 ,通力 合作 ,继续 发 展 
我 国 的 电子 出 版 事业 。 

经 过 十 余年 的 科研 .生产 过 程 ,我 们 已 具有 一 批 从 
事 于 计算 机 一 一 激光 汉字 编排 系统 的 科研 .生产 、 销 售 
和 服务 的 力量 ,中 国 的 出 版 .印刷 技术 改造 的 市 场 是 广 
大 的 ,我 们 相信 ,这 一 市 场 一 定 要 也 一 定 会 由 我 们 中 国 
的 科学 技术 来 占领 .我 们 一 定 要 在 较 短 时 间 内 ,作出 更 
大 的 努力 ,为 从 根本 上 扭转 我 国 印 刷 出 版 工作 面 绠 而 
做 出 更 大 贡献 。 





“ 专家 论坛 。 


论 我 国 青少年 计算 机 教育 与 培训 


吴 文 虎 副教授 在 1989 年 全 国 青 少年 计算 机 冬令 营 的 报告 


1989 年 春天 ,我 和 “学 生计 算 机 世界 ”主编 凌 启 渝 
一 起 代 队 去 参加 首届 国际 奥林匹克 信息 学 竞赛 ,三 名 
中 国 选手 在 与 外 国 选 手 的 激烈 竞争 中 ,发 挥 了 自己 的 
聪明 才智 和 所 掌握 的 计算 机 知识 与 技能 ,克服 了 机 器 
故障 多 和 电源 掉 电 等 困难 ,取得 总 分 第 二 的 好 成 绩 , 三 
名 选手 均 获 三 等 奖 。 以 前 没有 机 会 去 实地 比较 ,看 不 清 
我 们 的 水 平 究竟 如 何 ? 这 次 走出 中 国 , 来 到 世界 赛场 ， 
再 回 过 头 来 ,总 结 从 84 年 到 89 年 ,我 们 开展 至少 年 计 
算 机 普及 活动 的 实践 ,增强 了 信心 .下 面 分 几 个 题目 来 
讲 。 

一 、 对 我 国 开展 青少年 程序 设计 竞赛 水 平 
的 估计 

事物 的 规定 性 是 在 对 比 当中 来 加 以 认识 的 。 竞赛 
的 试题 可 以 反映 竞赛 的 水 平 , 首 届 国 际 奥林匹克 信息 
学 竞赛 试题 原型 是 由 组 委 会 发 函 给 各 参赛 国 征集 来 
的 。 我 根据 国内 竞赛 的 经 验 和 掌握 的 难度 ,事先 给 组 委 
会 寄 去 五 道 题 目 , 其 中 的 一 道 被 组 委 会 称 为 “Chinese 
box 的 题目 被 选中 。 竞 赛 是 在 保加利亚 首都 索非亚 台 
开 的 。 我 们 是 5 月 3 日 从 北京 乘 国际 列车 经 蒙古 、 苏 
联 . 罗 马 尼 亚 .到 达 保加利亚 的 首都 索菲亚 的 ,行程 一 
万 公里 ,历时 十 天 。15 号 到 达到 索非亚 ,17 号 正式 比 
赛 。17 号 上 午 决 定 用 什么 题目 来 比赛 ,题目 都 是 征集 
来 的 ,组 委 会 题目 的 难 易 程度 和 合适 不 合适 , 它 事 先 准 
备 了 五 道 题 ,这 五 道 题 要 经 过 所 有 领队 加 以 表决 ,由 组 
委 会 主席 和 领队 组 成 的 竞赛 委员 会 ,把 题目 事先 一 一 
讲 清楚 .这 五 道 题 都 是 经 过 组 委 会 改造 过 的 , 写 在 黑板 
上 ,各 题 逐 人 表态 ,记录 赞成 (yes) 或 反对 (No) 的 票数 ， 
先 将 得 票 最少 的 一 道 题目 淘汰 ,之 后 将 余下 的 题目 再 
表决 ,每 轮 淘汰 一 题 , 经 过 4 轮 表 决 , 最 后 选 出 来 两 道 ， 
- 道 是 保加利亚 的 ,一 道 是 我 们 中 国 的 原型 题目 ,再 进 
行 表 决 ,结果 我 们 的 题目 大 家 认为 比较 合适 ,适合 于 竞 
赛 ,适合 于 发 挥 . 适 合 于 让 选手 们 有 回旋 的 余地 。 当 然 
这 道 古 目 也 是 经 过 组 委 会 改造 过 的 。 这 是 唯一 的 …- 道 
试题 ,要 用 4 小 时 的 时 间 做 完 。 当 我 们 经 过 讨论 试题 和 
评分 原则 之 后 ,也 就 到 了 选手 们 下 午 进入 赛场 的 时 间 
(2 点 ), 我 们 就 不 允许 与 选手 再 见面 ,这 就 起 到 了 与 参 
赛 选手 间 的 “隔离 "作用 .这 道 试题 有 相当 的 难度 .但 又 
不 过 多 依 束 数学 知识 .通过 解 这 道 题 , 可 以 考查 学 生 的 
中 路 .计算 机 程序 设计 知识 .编程 能 力 与 技巧 ,特别 是 
题目 中 所 包含 的 不 定 因 素 , 给 竞赛 选手 以 更 多 的 回旋 
余地 ,也 给 他 们 创造 性 思维 的 发 挥 提 供 了 条 件 。 
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从 这 次 国际 竞赛 能 够 选中 我 们 中 国 的 题目 作为 原 
型 来 看 ,我 感到 自 84 年 以 来 ,我 们 国内 所 组 织 的 至 少 
年 程序 设计 竞赛 的 命题 原则 是 正确 的 ,题目 的 难 易 程 
度 是 恰当 的 ,符合 世界 的 潮流 和 方向 .从 86 年 和 88 年 
两 届 全 国 青 少年 程序 设计 竞赛 的 题目 难度 和 份 莽 看 ， 
都 要 比 这 次 国际 竞赛 的 难度 大 、 份 荆 重 。86 年 全 国 竞 
赛 上 机 题 月 有 五 道 题 ,每 -- 道 题 的 难度 都 可 以 和 所 谓 
的 chinese box 相 比 拟 , 但 竞赛 时 间 只 有 2 小 时 ,平均 每 
道 题 只 有 24 分 钟 ,而 这 次 国际 竞赛 一 道 题目 用 4 小 
时 。 从 选手 得 分 情况 看 ,86 年 的 冠军 李 劲 问 学 5 道 题 
全 做 出 来 了 ,从 他 编写 的 程序 的 清晰 度 . 优 化 程度 ,以 
及 运行 结果 来 看 都 是 非常 突出 的 。 当 时 ,我 在 领队 会 上 
说 过 ,你 那个 队 如 果 做 出 一 道 题 日 就 成 功 了 ,做 出 2 道 
题目 就 已 经 很 不 错 了 ,如 果 能 做 出 3 道 题目 就 向 你 祝 
贺 了 。 竞 赛 不 是 考试 ,要 分 出 高 低 . 拉 开 档次 。88 年 竞 
赛 中 的 庄 骏 和 柴 海 新 也 都 在 规定 的 2 小 时 内 做 完了 难 
度 较 大 的 4 道 题 。 原 来 我 们 曾经 估计 ,在 全 国 竞赛 中 获 
一 等 奖 的 选手 都 有 可 能 在 国际 竞赛 中 获奖 ,这 次 国际 
比赛 证 实 了 我 们 的 估计 。 因 此 我 说 :外 国 的 月 亮 圆 ,中 
国 的 月 亮 也 圆 。 我 们 没有 理由 妄 自 非 薄 , 只 要 我 们 努力 
是 可 以 走向 世界 的 。 

二 、 要 重视 全 面 素 质 的 培养 

计算 机 程序 设计 竞赛 是 -种 综合 性 的 智力 与 能 力 
的 竞赛 ,是 促进 普及 基础 上 提高 的 一 种 好 形式 ,国内 竞 
赛 和 国际 竞赛 都 要 求 选手 具有 全 面 的 素质 。 

打 好 基础 是 造就 德 智 体 美 全 面 发 展 有 用 人 材 的 需 
要 , 拨 尖 人 才 更 需要 有 宽厚 的 基础 . 几 年 来 我 们 在 普及 
计算 机 知识 的 过 程 中 ,始终 强调 注意 学 生 全 面 素质 的 
培养 ,要 引导 学 生 学 好 数理 化 文史 地 等 基础 知识 ,培养 
观察 能 力 . 表 达能 力 . 逻 辑 思维 与 抽象 思维 能 力 ,综合 
比较 能 力 ,再 有 就 是 动手 实践 能 力 。 实 践 是 能 力 赖 以 生 
长 的 土壤 。 随 着 中 华 学 习 机 的 推广 与 普及 ,我 国 青少年 
学 习 计算 机 的 实践 条 件 会 有 较 大 改善 ,希望 老师 .家 长 
和 同学 们 能 充分 利用 已 有 的 条 件 , 使 普及 的 面 再 宽 一 
点 ,有 了 普及 的 基础 .我 们 提高 才 有 希望 。 

历届 全 国 竞赛 的 众多 选手 大 多 表现 出 良好 的 全 面 
素质 ,这 次 去 保加利亚 参赛 的 二 名 选 和 于 ,他 们 不 但 基础 
知识 学 得 扎实 ,外 诸 水 平 高 ,而 且 他 们 分 析 问 题 和 解决 
问题 的 能 力 以 及 上 机 实践 的 能 力 帮 很 强 . 

三 .鼓励 刘 造 性 思维 与 因材施教 

培养 创造 性 思维 能 力 对 拨 居 人 材 的 成 长 企 关 重 ， 


要 .过 去 我 们 在 全 国 性 友 赛 的 评分 过 促 中 ,对 解 题 的 创 
造 性 强调 得 不 够 ， 从 这 次 国际 奥林匹克 信息 学 竞赛 的 
评分 中 ,我 感到 深 受 启发 ,今后 是 否 可 以 设想 , 题 日 做 
对 只 能 得 60 70 分 ;做 得 好 ,有 创造 性 ,还 可 以 加 
30 一 40 分 。 鼓 励 我 们 的 该 子 从 小 就 助 于 思想 ,勇于 创 
新 。 我 始 到 ,我 们 这 次 软件 竞赛 中 ,创造 性 的 发 挥 表 现 
得 很 好 ,看 后 我 们 很 受 鼓舞 ,达到 现在 这 样 水 平 ,大 家 
感到 意外 ,我 们 很 高 兴 。 中 国 儿 童 智 商 高 的 大 有 人 在 ， 
可 昌 性 很 大 ,创新 精神 党 培养 ,和 效 励 , 掌 老师 .家 长 ， 
以 至 全 社会 给 他 们 创造 条 件 。 

在 拨 尖 人 才 的 成 长 过 程 中 ,我 感到 -- 定 要 贯彻 因 
材 施 教 的 原则 ， 要 针对 学 生 的 特点 启发 他 们 的 创造 精 
神 , 在 这 方面 全 国 各 地 很 多 辅导 老师 积累 了 很 好 的 经 
验 .他 们 通过 各 种 教学 手段 ,比如 向 学 生 介绍 并 演示 一 
些 好 的 软件 ,吸收 学 生 参 加 科技 小 组 的 活动 ,指导 学 生 
开发 各 种 计算 机 辅助 教学 软件 或 者 其 它 的 实用 软件 ， 
在 实践 中 培养 学 生 的 动手 能 力 的 创新 精神 , 收 到 了 很 
好 的 效果 ,历届 软件 评选 也 从 -个 侧面 反映 了 这 种 效 
果 , 特 别 是 这 -- 次 软件 竞赛 ,我 们 要 很 好 地 总 结 这 方面 
的 经 验 ,重点 放 在 培养 人 的 经 验 , 既 要 见 物 ,更 要 见 人 。 

鉴于 我 们 的 条 件 已 趋 成 熟 ,又 有 参加 国际 大 赛 的 
需要 ,我 建议 学 习 数学 .物理 .化 学 学 会 的 经 验 , 尽 快 成 
立 奥 林 匹 克 计 算 机 学 校 ,作为 更 高 层次 因材施教 的 措 
施 , 给 按 兴 人 才 的 成 长 创造 条 件 。 同 时 ,在 我 国 改革 开 
放 日 益 深入 发 展 的 条 件 下 ,我 们 应 当 积极 做 好 准备 ,在 
几 年 以 后 ,在 中 国 举办 国际 奥林匹克 计算 机 竞赛 .如果 
说 要 做 这 样 的 竞赛 的 话 ,我 们 需要 做 很 大 的 努力 ,特别 
是 我 们 还 要 使 我 们 选手 的 水 半 有 进一步 的 提高 。 

\ 对 青少年 计算 机 普及 教育 的 几 点 看 法 
和 想法 

西方 的 学 者 对 计算 机 文化 的 看 法 ,众说 非 云 。 现 在 
看 来 ,程序 设计 是 第 一 文化 的 这 种 说 法 显然 不 够 全 面 。 
随 着 信息 技术 和 软件 工程 的 发 展 , 人 们 认识 到 计算 机 
将 会 在 日 常生 活 中 的 各 个 方面 发 挥 作用 。 人 们 必须 学 
会 使 用 诸如 字 处 理 . 数 据 库 .电子 报表 .电子 通讯 等 现 
成 的 软件 ,而 不 必 白 己 设 计 这 些 软件 。 因 此 ,许多 教育 
家 提出 :计算 机 文化 应 该 以 教程 序 设计 语言 为 主 ,转向 
将 计算 机 作为 一 种 资源 、 一 种 工具 来 掌握 ,但 不 同学 派 
对 工具 的 解释 .应 该 掌握 的 程度 有 不 同 的 看 法 。 我 认 
为 ,做 什么 和 应 该 怎样 做 ,要 立足 于 我 们 的 国情 ,我 们 
能 够 提供 给 中 小 学 机 器 的 数 征 与 发 达 国家 比 ,是 很 少 
的 ,机 器 的 速度 低 ,内 存 容 址 小 .软件 义 不 十 分 丰富 , 师 
资 力 其 还 比较 薄弱 。 在 这 种 前 题 条 件 下 .应 该 如 何 做 、 
这 是 需要 认真 讨论 的 问题 。 

日 前 许多 省 市 已 将 计算 机 课程 作为 中 学 的 选 收 课 
列 入 教学 计划 ,并 且 已 经 不 是 只 教 BASIC 诺言 和 程度 
设计 方法 ,开始 使 用 CA1 课件 进行 教学 ,这 些 都 是 恨 


好 的 开端 .要 把 计算 机 当 作 得 心 应 手 的 上 具 来 用 .必须 
料 懂 计算 机 是 怎样 工作 的 。 从 学 引种 较 容 易 入 门 的 
程序 设计 说 训 入 于 ,来 达到 粗 懂 的 日 的 ,可 能 是 捷径 . 
学 生 在 学 习 有 过 程 中 ,可 能 会 遇 到 这 样 一 些 问题 :和 月 已 
起 做 什么 ,计算 机 能 做 什么 ,怎么 做 才 符 合 迎 辑 .符合 
实际 ,怎样 做 才能 审 半 功 倍 ,获得 高 的 精度 ,高 的 效 褒 。 
计算 机 与 算盘 .计算 器 等 -- 般 的 工具 不 同 , 它 是 人 脑 的 
延伸 .是 智力 开发 的 工具。 计算 机 把 最 现代 化 的 计算 工 
有 具 和 人 的 主观 能 动 性 结合 起 来 ,给 人 的 聪明 才智 的 发 
挥 提供 了 良好 的 环境 .计算 机 又 是 最 为 严格 的 "老师 ”， 
不 允许 那 怕 是 半点 马虎 , 它 要 求学 生 脚 踏实 地 ,从 需要 
和 可 能 两 方面 考虑 问题 。 思 维 方式 正确 与 和 否 可 以 立时 
得 到 来 自 这 位 "老师 ”的 反馈 信息 。 让 学 生 迅 速 验 证 自 
已 的 设想 ,纠正 失误 ,发 现 不 足 . 国 外 研究 表明 ,对 儿童 
来 说 ,认识 方式 .空间 想象 能 力 、 推 理 能 力 .思维 的 完整 
性 和 灵活 性 等 都 与 学 习 程序 设计 语言 有 正 相 关 .。 当 然 ， 
最 现代 化 的 教学 工具 ,也 存在 着 教学 方法 问题 ,如 果 芍 
用 注入 式 的 教学 方法 ,采用 蜀 泥 刻 板 的 教材 , 叉 不 注重 
上 机 实践 ,学 生 势 必 望 而 性 步 ,兴趣 索然 。 我 主张 采用 
启发 式 讨 论 式 的 教学 方法 ,强调 动手 实践 ,注意 调动 学 
生 学 习 的 积极 性 与 创造 性 。 计 算 机 与 基础 教育 相 结合 
是 当今 世界 教育 的 趋势 ,而 计算 机 辅助 教学 应 该 足 它 
的 结合 点 ,在 我 国 开展 计算 机 普及 教育 ,应 该 大 力 扶植 
CAI.CAD .CAM 活动 .国外 许多 专家 认为 ,要 充分 发 控 
计算 机 用 于 教育 的 潜力 ,学 会 计算 机 固然 重要 ,而 将 计 
算 机 作为 改革 传统 教学 的 一 种 工具 和 手段 , 则 更 为 重 
要 。 我 觉得 当前 应 该 抓 好 六 件 事 。 

…、 组 织 编写 与 征集 用 于 中 小 学 的 CA1 课件 脚 
本 ,改变 那 种 分 散 的 无 组 织 的 方式 。 

二 ,组织 CAI 课件 开发 ,可 以 采取 定点 招标 的 方 
式 , 集 中 优势 攻关 方式 ,可 以 效仿 出 版 界 , 避 免 低 水 平 
的 重复 应 有 查 重 次 询 的 设施 。 

三 .组 织 工具 软件 的 开发 与 推广 ,不 断 研 制 高 水 半 
的 工具 软件 。 我 感到 咱们 这 次 软件 竞赛 ， -个 很 重要 的 
问题 ,就 是 工具 ,也 可 以 换 句 话说 ,是 工具 软件 在 : 定 
形式 上 的 大 赛 。 你 没有 工具 软件 ,你 是 赛 不 出 水 平 的 ， 
是 很 吃力 的 .因此 ,通过 这 次 竞赛 ,也 积累 了 经 验 , 可 能 
是 -个 很 好 经 验 。 

四 .组织 贡 有 课件 的 推广 应 用 ,收集 师 生 在 使 用 当 
中 的 反馈 信息 ,以 便 提 高 课件 质 其 。 

下、 组织- 一 、 一 个 学 校 .-…、 二 的 学 科 , 息 合 课 演 教 
党 ,试点 搞 CAL 教学 ,总 结 经 验 之 后 . 面 上 推广 。 

六. 袁 扬 CAL CAD CAM 等 方面 有 贡献 的 中 小 学 
教师 和 科技 工作 者 。 

从 -一 九 八 四 年 到 一 儿 八 九 年 ,我 们 在 计算 机 普及 
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" 专家 论坛 。 


中 华 学 习 机 产业 建设 的 宏观 战略 部 署 急 待 加 强 


机 电 部 计算 机 司 高 工 于 万 源 


中 华 学 习 机 自 诞生 以 来 已 累计 生产 近 10 万 台 , 有 
20 家 企业 为 此 付出 了 艰辛 劳动 ,推广 应 用 工作 取得 较 
大 进展 ,这 是 值得 庆幸 的 事 。 

当前 ,由 于 国内 整个 计算 机 行业 过 到 资金 紧缩 , 原 
材料 旋 价 ,加 上 今年 四 月 分 ,由 于 键盘 配套 件 等 质量 问 
题 ,生产 无 法 顺利 进行 。 而 在 数 月 之 后 ,配套 问题 虽 已 
开始 好 转 , 却 又 赶 上 市 场 需求 “疲软 ,致使 整个 中 华 学 
习 机 产业 的 发 展 遭 受到 严重 干扰 ， 

为 了 排除 这 种 困境 ,必须 迅速 加 强 中 华 学 习 机 产 
业 建 设 的 宏观 战略 部 署 工作 。 

一 、 产 品 结构 设计 需要 强化 市 场 导向 工作 

CEC-! 型 机 的 性 能 价格 比 已 越 来 越 不 适应 市 场 需 
求 ,特别 是 PC/XT 压缩 型 微机 热 兴起 之 后 ,人 们 持 币 
待 购 ( 想 干脆 给 孩子 购 一 台 后 一 种 微机 ,可 以 一 直 从 中 
学 用 到 大 学 ,价钱 相差 仅 1000 元 左右 ,进一步 加 剧 
CEC 一 ! 型 机 市 场 的 “疲软 "。 

针对 这 种 状况 ,有 必要 发 动 一 次 产品 结构 设计 的 
强化 导向 工作 .把 各 家 已 设计 好 的 压缩 型 PC/XT 机 及 
所 掌握 的 各 种 国外 参考 样机 来 一 次 模 向 展示 评比 , 然 
后 从 各 个 角度 进行 重新 再 设计 。 评 比 工作 中 应 首先 制 
定 评测 标准 ,包括 :电路 设计 ,结构 工艺 设计 , 质 最 保证 
与 监控 ,外 型 设计 ,包装 与 商标 设计 ,系统 软件 ,集成 支 
撑 软 件 与 应 用 软件 设计 .此 外 ,应 特别 注意 国产 化 成 分 
的 定 最 分 析 .考虑 以 上 因素 之 后 ,再 来 制定 总 的 评价 性 
能 价格 比 办 法 .这 样 做 的 目的 ,是 使 各 厂家 能 大 体 上 在 
同等 条 件 下 进行 友好 竞争 ,此 外 ,也 可 群策群力 ,集中 
智益 进行 高 性 能 的 综合 设计 工作 .从 而 大 大 改善 各 家 
单干 中 眼光 和 狭 容 的 毛病 。 这 样 做 ,也 还 能 主动 刺 痛 工 厂 
自己 ,下 决心 改进 现 有 CEC 一 1 型 机 结构 设计 、 性 能 价 
格 比 的 劣势 ,重新 找到 生路 。 这 项 工作 ,也 还 可 以 为 清 
理 整 顿 现 有 计算 机 市 场 秩序 货 定 基础 .这 项 工作 之 后 ， 
对 开展 市 场 同 类 机 器 的 评 展 或 行政 强行 检查 ,查禁 走 
私 倒卖 ,为 国产 微机 发 展 扫 清 障碍 。 使 工厂 放心 地 ,在 
同等 竞争 条 件 下 ,加 倍 努 力 开发 .生产 国产 微机 。 

二 .用 户 市 场 需求 分 析 


各 厂 对 已 销售 出 的 机 器 ,使 用 状况 进行 调研 ,在 此 
基础 上 召开 用 户 市 场 需 求 分 析 研 讨 会 议 。 研 究 市 场 内 
容 包括 ; 

1. 市 场 分 布 ,用 户 类 别 。 

2. 用户 使 用 效益 分 析 :二 次 开发 产生 新 产品 .应 用 
产品 .应 用 工具 .应 用 软件 及 其 它 社 会 效益 。 

3. 产品 配套 ,维修 服务 状况 分 析 。 

4. 广告 与 市 场 信誉 分 析 。 

5. 向 新 . 老 用 户 介绍 现 有 新 产品 . 老 产 品 改进 部 件 
(系统 软件 ,高 智能 卡 、. 软 件 开发 工具 .各 种 应 用 软件 
等 )。 广 泛 听取 改进 意见 。 

6. 建立 用 户 联谊 恳谈 需求 分 析 组 织 , 以 便 经 常 得 
到 市 场 反馈 信息 ,不 断 更 新 产品 ,改善 维修 服务 工作 。 

7. 建立 用 户 奖 励 基金 ,对 中 华 学 习 机 产业 建设 做 
出 各 种 贡献 的 用 户 , 均 应 受奖 。 

三 .清理 整顿 计算 机 市 场 

1. 对 经 营 学 习 用 计算 机 企业 进行 分 类 ,按照 国家 
法 律 进行 正当 营业 的 企业 应 受到 保护 ,对 他 们 在 各 方 
面 的 进步 应 子 肯定 ,并 给 予 有 针对 性 的 奖励 。 

2. 对 有 经 营 学 习 机 、 游 戏 机 的 企业 应 检查 其 藻 业 
范围 内 进口 产品 的 批件 与 许可 证 ,对 违纪 产品 进行 查 
处 。 对 水 货 .假冒 商标 等 劣质 产品 ,发 动用 户 进 行 揭发 
检举 , 展 出 示众 ,通报 查处 。 

四 ,出口 创汇 基地 建设 

出 口 产 品 必 需 具 备 以 下 条 件 : 

。 质 量 达 到 国际 考核 标准 (U、L.Fce… 等 )。 

“。 性 能 上 有 中 国 独特 的 成 分 (使 件 、. 软 件 ) 。 

。 外形 要 注 亮 。 

。 价 钱 上 有 竞争 力 。 

。 出 口 企业 则 必须 具有 规模 经 济 生 产能 力 ,经 营 
管理 ,优秀 销售 服务 能 力 。 

为 此 ,出 口 创 汇 基地 建设 应 抛弃 司空 见 惯 的 老式 
传统 建设 方案 ,应当 进 行 符合 上 述 条 件 的 基地 建设 ， 

例如 。 增 设 特 殊 图 形 .图 像 . 语 音 、 文 字 、 数 字 等 综 
合 开发 实验 室 与 新 产品 中 试 线 。 


9 人 < 人 人 


育 上 有 了 一 定 的 基础 ,积累 了 一 定 的 经 验 . 从 参加 国际 

奥林匹克 信息 学 苑 赛 来 看 ,我 感到 我 们 应 该 增强 信心 ， 

我 们 有 能 力 自立 于 世界 民族 之 林 , 我 们 同样 有 能 力 叶 
1 2 


身 于 世界 科学 强国 之 林 。 只 要 我 们 万 众 一 心 , 努 力 奋 
斗 , 我 们 是 一 定 能 够 达到 月 标的 . 


“程序 剖析 与 编程 技巧 。 


CEC 一 工 机 的 音乐 语句 浅 谈 


湖北 师范 学 院 附 中 衣 思 明 


我 国 于 1987 年 推出 的 CEC 一 ! 型 中 华 学 习 机 ,为 
APPLE 一 和 的 向 上 兼容 机 。 驻 机 解释 系统 软件 有 若干 
扩充 ,特别 是 在 发 声 方面 ,增加 了 一 条 BASIC 语句 命 
令 MUSIC( 机 内 代码 为 $EB), 为 用 户 提供 了 不 少 方 
便 。 

在 此 以 前 ,所 有 APPLE 一 E 及 其 兼容 机 ,因为 BA- 
SIC 中 无 音乐 语句 命令 ,用 户 要 进行 音乐 设计 ,必须 要 


$313 一 ”88 DEY 
书 314 一 ” D0 EF BNE $ 0305 
$316-- CE 01 03 ”DEC $0301 
$319 一 “”D0 Ey7 BNE $0302 
$31B 一 ”60 RTS 


由 程序 可 知 ,Y 的 初始 值 越 大 , 则 单元 时 间 内 的 喇 
叭 振动 次 数 赴 多 ,相反 在 喇叭 每 两 次 振动 之 间 的 间歇 
时 间 相 应 缩短 。 这 符合 声音 的 音调 高 低 与 单元 时 间 内 





借助 于 机 器 机 器 语言 发 声 子 程序 。 最 早出 现 的 机 器 语 生生 人 
on 但 此 方案 在 音 长 码 所 反映 的 发 音 持续 时 间 方 面 略 
CE 有 不 足 , 即 音 长 码 T 的 单元 时 间 值 不 是 -- 个 定 值 ,而 
是 随 频 率 码 的 变化 也 有 变化 。 这 样 原 设计 者 只 好 用 中 

$301! 一 存 音 长 码 T 频 声音 的 持续 时 间作 为 一 个 单元 的 标准 ,而 不 是 以 低 
$302 一 AC 00 03 LDY $ 300 频 端 或 高 频 端 发 出 的 声音 的 持续 时 间作 为 单元 标准 ， 
$305- AE 00 03  LDXx  $0300 那样 高 低 两 端的 差异 要 大 一 些 .。 这 是 因为 APPLF 一 1 
$308 一 A9 04 LDA 并 $04 及 其 兼容 机 是 用 指令 而 不 是 用 经 过 的 时 间 来 改变 上 音 
$30A 一 20 A8 FC JSR $FCA8 的 频率 ,可惜 APPLE 一 工 及 其 兼容 机 中 都 没有 实时 时 
$30D-- AD 30 c0  LDA 。 $co30 钟 ,只 能 如 此 处 理 . 
后 人 为 此 出 现 第 二 方案 如 下 
三 国 9 ea 

. 增设 图 文 、 的 于 晤 人 语种 使 手册 对 证 肌 有 天 必 枯 
用 户 的 简洁 实用 友好 程度 迅速 提高 。 。 人 饲料 配方 开发 用 教育 微机 


“增设 用 户 特殊 要 求 的 维修 服务 部 ,以 便 从 工作 
中 吸收 新 的 设计 思路 .树立 特别 信誉 高 大 形 像 。 

“增设 艺术 ,文明 .高 实用 性 培训 部 ,使 企业 中 有 
一 大 批 普 于 同 用 户 友好 交往 ,从 而 迅速 扩大 用 户 市 场 。 

“ 增设 企业 各 级 干部 日 身 管 理 水 平 的 强化 培训 
部 ,并 从 中 不 断 增补 公司 各 级 领导 骨干 。 


“ 增设 市 场 决策 分 机 指挥 部 ， 
种 战略 规划 决策 咨询 意见 。 
五 .合理 调 整 企业 产业 布局 结构 
在 中 华 学 习 机 统一 基本 开发 规定 基础 上 ,应 把 现 
有 企业 产品 针对 同 其 他 行业 工程 配套 性 质 不 同 ,区 别 
出 各 有 特点 的 生产 企业 ,把 全 国生 产 厂 的 市 场 开拓 视 
野 展 宽 , 以 状 大 现 有 产业 规模 。 
例如 。 学 令 前 儿 剖 教 育 微机 
“。 中 、 小 学 教育 微机 
“科学 博览 教育 微机 
“在职 成 年 教育 微机 
。 各 业 专 职 人 员 教 育 微机 
。 教师 辅 助教 学 工具 用 教育 微机 
“ 智能 排版 终端 用 教育 微机 


专门 为 企业 提供 各 


六 、 集 中 精力 ,制定 好 中 华 学 习 机 三 年 产业 发 展 战 
略 。 

这 个 战略 应 包括 以 下 内 容 : 

。 对 中 华 学 习 机 产业 的 现状 估计 。 

“ 三 年 发 展 总 目标 .名 的 指导 思想 .采取 的 主要 措 
施 .产品 系列 品种 .三 年 计划 生产 数量 .国内 市 场 .国际 
市 场 .市 场 整 顿 ,产业 发 展 的 有 关 配 套 政 策 。 

七 、 结 束 话 

机 电 部 张 学 东 副 部 长 代表 部 领导 多 次 重申 :微机 
先行 .科技 先行 ,出口 导 向 .以 用 立业 的 指导 产业 发 展 
方针 。 我 们 应 当 苯 照 执行 。 把 各 项 工作 落 到 实处 ,有 条 
理 地 把 中 华 学 习 机 产业 建设 工作 推 升 到 个 靳 的 发 展 
阶段 。 

市 场 机 遇 总 是 存在 ,并 不 断 涌现 .但 是 能 抓 住 这 种 
机 遇 的 人 ,是 那些 在 市 场 发 生 大 幅度 变化 的 压 难 时 期 ， 
能 不 怕 困 难 , 明 查 秋 党 ,有 市 场 前 景 预见 性 的 决策 者 。 

我 希望 我 们 的 企业 家 都 能 做 时 代 的 先驱 ,做 中 华 
学 习 机 产业 建设 的 先驱 ,为 后 人 开拓 光明 大 道 。 让 我 们 
万 众 一 心 , 脚 踏实 地 , 踏 踏实 实 做 贡献 。 那 么 中 华 学 习 
机 产业 的 兴旺 发 达 就 一 定 会 呈现 在 我 们 面前 。 


程序 二 


$300-- 存 频率 码 F 

$301 - 存 音 长 码 T 
$302 一 AD 30 C0  LDA  $co30 
$305-- 88 DEY 
$306 D0 05 BNE $30D 
$308-- CE 01 03 DEC $0301 
$30B 一 FEF0 09 BEQ $0316 
$30D CA DEX 
$30E 一 。”D0 F5 BNE $0305 
$310 一 AE 00 03  LDX  $0300 
$313 一 4C 02 3  JMP $0302 


$316 一 ”60 RTS 

在 单元 时 间 内 喇叭 振动 的 次 数 与 频率 码 E 的 值 成 
反比 。 初 始 值 越 大 , 则 喇叭 两 次 振动 之 间 的 间歇 越 长 ， 
那么 单元 时 间 内 喇叭 振动 的 次 数 便 会 减少 ,声音 的 音 
调 变 低 。 

出 现 此 现象 的 原因 是 上 述 两 汇编 程序 的 结构 略 有 
差异 。 程 序 一 的 非 堆 跳 转 使 喇叭 又 振动 -次 ,而 程序 二 
的 非 洛 跳 转 却 使 喇叭 两 次 振动 之 间 的 间歇 延长 ,所 以 
频率 码 E 的 值 与 单元 时 间 内 喇叭 振动 的 次 数 成 反比 。 

有 的 用 户 以 往 在 运用 APPLE-- 下 机 的 机 器 语言 
发 声 子 程序 时 ,不 知道 有 两 种 方案 , 则 出 现 用 某 一 资料 
上 的 频率 码 F 序列 , 却 配 用 另 一 资料 上 的 另 一 方案 的 
机 器 语言 发 声 子 程序 ,结果 演奏 出 来 的 乐曲 便 面 目 全 
在 了 。 

第 二 种 方案 的 最 大 变化 ,是 将 第 一 种 方案 的 音 长 
码 T 的 单元 时 间 值 ,与 频率 码 F 的 联系 被 切断 了 ,Y 变 
址 寄存 器 的 值 , 是 与 频率 码 F 的 值 无 关 的 。 

但 从 总 体 上 来 讲 , 由 于 APPLE 一 有 及 其 兼容 机 的 
使 件 限 制 ,机 内 无 实时 时 钟 , 也 只 能 比 第 一 种 方案 略 有 
改进 而 已 。 

CEC-- 1 机 采用 第 二 方案 ,并 将 其 固化 在 $D0OF9 
~$D10B 的 空间 。 摘 录 如 下 : 


程序 三 

中 DOEC 一 - 20 FF8 E6 JSR 中 E6F8 
书 DOEF 一 86 “EC STX 中 EC 
中 DOF1 -- 20 BE DE JSR 叫 DEBE 
$DOF4- 20 F8 E6 JSR $ E6F8 
$DOF7 一 86 ED STX $ ED 
$DOF9-- AD 30 C0  LDA $Cc030 
$DOFC 一 88 DEY 
下 DOFD 一 D0 04 BNE 书 D103 
$ 忆 DOEFF 一 C6 FFD DEC $ED 
$D101 一 F0 08 BEQ $D10B 
中 D103 一 CA DEX 

“$$D104 一 D0 F6 BNE 书 D0OFC 
$D106 一  A6 EC LDX $EcC 
书 D108 一 4C F9 DPI0 JMP 书 D0F9 
$D10B 一 00 RTS 


稍 加 观察 便 可 了 解 程序 二 的 第 3 至 12 行 与 程序 
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二 的 第 6 至 15 行 所 全 一 致 ， 程 序 .中 的 前 五 行 解决 
BASIC 冰 程 序 中 MUSIC 代 的 后 的 字符 读 取 问 题 .并 将 
频率 码 F 的 值 存 入 $EC 单元 , 音 长 码 T 的 值 存 入 
$ED 单元 。 而 恰好 $EC、$ED 两 单元 在 APPLE 一 
机 中 没有 被 使 用 .不 会 影响 其 软件 的 兼容 性 。 

CEC 一 工 机 增设 这 … 功 能 .为 广大 青少年 学 生 初 
学 BASIC 语言 者 ,提供 了 不 少 方便 和 乐趣 ,因为 他 们 
一 般 还 不 了 解 汇编 诸 言 , 励 法 借助 机 器 诸 吉 发 声 子 程 
序 的 任 … 方 案 , 自 己 编制 音乐 程序 .这 样 做 是 非常 合适 
的 。 

我 们 知道 ,BASIC 中 每 一 次 功能 扩充 ,都 是 以 增加 

使 件 资源 的 开销 换取 来 的 ,CEC ` 工 机 的 MUSIC 语句 
也 不 例外 。 用 MUSIC 语句 命令 让 机 器 发 一 个 音 , 需 要 
十 个 字 节 的 内 存 开销 .相反 如 果 使 用 机 器 码 , 除 了 发 声 
子 程序 占用 二 十 个 字 节 外 ,每 发 一 个 音 只 要 两 字 节 内 
存 , 一 个 存放 频率 码 F,… 个 用 于 存放 音 长 公 T。 由 此 
可 见 , 用 BASIC 的 MUSIC 语句 的 内 存 开销 大 用 机 刘 语 
言 发 声 子 程序 的 内 存 开销 的 五 倍 。 当 然 作 为 中 小 学 生 
的 学 习 机 ,学生 编 制 的 程 订 不 会 太 长 ,内 存 开 销 紧 张 的 
矛盾 不 会 突出 ,所 以 用 不 着 去 葡 虎 ， 

但 作为 教育 工作 者 编制 CA1 软件 ,或 有 关 音 乐 教 
学 的 软件 ,再 使 用 BASIC 的 MUSIC 语句 命令 ,不 仅 大 
规模 的 输入 .修改 不 便 , 且 内 存 撕 销 过 大 的 不 盾 也 将 逐 
渐 上 升 为 主要 入 抽 。 在 这 种 情形 下 ,人 建 以 仍 使 用 机 器 语 
言 发 声 了 程序 较 好 。 

笔者 曾 利 用 CEC 1 和 ROM 中 $DOF9 $DI0B 
的 机 器 语言 发 直子 程 订 运 行 机 瞧 码 数据 (FT) 序 列 ， 
相当 好 用 .唯一 发 现 的 不 足 是 音调 变 高 .节拍 时 间 缩 答 
了 一 些 , 为 此 在 程序 二 的 第 11 行 X 变 址 寄存 器 的 减 
量 指 令 之 前 增加 一 条 空 操作 指令 ,做 到 了 使 用 MUSIC 
语句 发 声 的 音调 基本 一 华 . 

其 次 是 CEC 一 工 机 中 国 化 的 机 器 语言 发 声 子 程序 
还 有 一 点 限制 :乐曲 中 不 得 有 休止 符 , 即 频率 码 F 的 初 
始 值 不 得 为 常 。 为 索 时 ,实际 足 等 于 256, 机 肯 将 发 出 
一 个 比 频率 E 等 于 255 的 值 还 低 的 声音 ,这 是 原 汇 编 
程序 的 结构 决定 了 的 。 

这 对 于 CAIL 软件 是 -- 个 遗 羽 . 这 时 唯一 的 出 路 只 
能 是 使 用 机 器 语 育 发 声 子 程序 , 放 做 少 莽 的 修改 。 在 程 
序 三 的 第 13 行 之 与 ,增加 - 行 条 件 转 移 指 令 , 即 当 
$ EC 单元 值 为 信 时 , 跳 转 到 第 7 行 ,从 而 喇叭 不 发 声 ， 
实现 有 休止 符 的 乐曲 演奏 。 笔 者 以 第 一 方案 为 基础 , 编 
制 了 一 个 可 运行 机 器 码 数据 (FT) 序 列 , 且 可 允许 乐 
曲 中 有 休止 符 的 程序 如 下 : 


程序 四 
$ 6000 一 A9 6060 LDA 共 币 60 
$ 6002--- 85 07 STA 员 07 
$ 6004 一 A9 3B LDA 七 出 3B 
$ 6006 一 85 06 STA $ 06 
中 6008 EDO 06 JINC 和 $ 06 
$$600A F0 2A BEQ $6036 
$ 600C -一 A2 00 1.DX 坟 叫 00 


$ 600E 一 Al 06 LDA ($06,X) 
$ 6010 一 85 “EC STA $ EC 
书 6012 一 E6 06 INC 书 06 
$6014 一 Al 06 LDA ($06,X) 
书 6016 一 85 ED STA $ED 
$6018- 一 85 08 STA 中 08 
$601A 一  A5 EC LDA $ EC 
$ 601C 一 65 08 ADC 书 08 
$601E 一  F0 1A BEQ 和 $603A 
$ 6020 一 AD 30 C0 ” LDA $Cc030 
$ 6023 一 88 DEY 
$6024 一 D0 04 BNE 下 602A 
$ 6026 一 C6 ED DEC $ ED 
$ 6028 一 F0 DE BEQ $ 6008 
$602A 一  “EA NOP 
$602B 一 CA DEX 
$ 602C 一 D0 EF5 BNE $$6023 
$602E 一  A6 EC LDX $ EC 
$ 6030 一 F0 Fl BEQ $6023 
$ 6032 一 A9 00 LDA 并 $$00 
$ 6034 一 F0 “_EA BEQ $ 6020 
$ 6036 一 E6 07 INC $07 
$ 6038 一 D0 D2 BNE $ 600C 
$ 603A 一 60 RTS 
$ 书 603B 一 00 BRK 

有 关 说 明 如 下 : 





CunCDnCConpC-nCpguCOonCnbuCySnCaeuCenCeenO 


CeCniaCaeCrnesOrenCeiaCenCpeChenCDOCDCOrCoOOaCOACeuCynpnCanCynenCuenCneaCuConieCoeCECnCoOCDCyhCeCenCoeCyeCenCnenCassC' 


动 ,便于 不 同情 形 的 使 用 。 

第 1 至 4 行为 设置 频率 码 F, 音 长 码 T 的 数据 区 
的 起 始 地 址 。 

第 6 行为 低位 地 址 进行 翻 页 而 设置 的 跳 转 指令 。 
为 此 在 设置 乐曲 数据 (FE.T) 区 的 起 始 地 址 时 ,低位 应 
从 奇数 位 (1.3.5…) 算 起 ,然后 经 过 第 5 行 的 增 量 指 
令 , 则 变 为 偶数 位 (…A、`C、`E.Q) ,和 否则 会 在 音 长 码 T 的 
存放 字 节 处 产生 翻 页 动作 ,导致 乐曲 数据 的 混乱 。 

第 13 至 16 行为 乐曲 结束 判 跳 指令 行 , 当 频率 码 
F 与 音 长 码 T 都 为 零 时 表示 乐曲 全 部 结束 ,所 以 每 一 
首 乐 曲 的 数据 区 应 添加 两 字 节 置 零 作为 结束 标志 。 

第 26 行为 演奏 休止 符 而 设 。 

为 了 便于 读者 验证 这 个 程序 的 功能 , 文 后 附 上 一 
段 数据 ,为 《春节 序曲 ?中 的 关 干 小 节 , 有 兴趣 的 同志 不 
妨 试 一 试 。 
$ 6038 一 D0 D2 60 00 4B 46 4B 1E 
$6040 一 54 IE 5F 46 5F 1IE 72 1E 
$6048 一 80 46 80 1lE 72 1lE 5F 46 
$6050 一 5F IE 54 IE 4B 46 4B 1E 
$ 6058 一 54 IE 5F 46 00 46 5F 46 
$6060 一 00 46 98 6E 5F 5A 72 1E 
$6068 一 5F 46 72 46 80 46 5F 46 
$6070 一 ?72 46 80 46 98 46 80 46 
$6078 一 98 46 AB 46 80 46 72 46 
$6080 一 98 46 98 1lE AB 1l1E C0 46 
$6088 一 00 46 4B 46 4B 1lE 54 1E 
$ 6090 一 5F FF 00 00 00 00 00 00 





中 华 机 打印 图 形 经 验 点 滴 


四 川 宜宾 教学 仪器 让 


中 华 机 的 BASIC 语言 高 分 辩 率 作 图 或 LOGO 语 
言 作 图 ,不 但 色彩 丰富 ,而且 图 形 也 很 漂亮 。 如 何 打印 
绘制 的 图 形 ,随机 配 的 使 用 手册 没有 作 介绍 .笔者 参考 
苹果 机 的 有 关内 容 , 给 出 中 华 机 的 高 分 辩 率 状态 和 
LOGO 语言 的 图 形 打 印 方法 , 现 介 绍 如 下 。 

一 、BASIC 语言 作 图 的 打印 

1 .图 形 绘制 完 后 ,用 CTRL-RESET 跳出 高 分 辩 率 
状态 。 

2. 用 PR#1 接 通 打印 机 。 

3 用 POKE 1913,N 选择 高 分 辩 率 图 形 页 CN=1 
打印 第 1 页 SN=2 第 二 页 SN=3 第 1 页 和 第 2 页 )。 

4、 按 CTRL-Q( 或 PRINT CHR $ (17)) 打 印 图 形 。 

二 .LOGO 语言 图 形 打印 

1 .将 主机 和 打印 机 接 通 :OUTDEYV 1 


李志刚 


2. 打 印 图 形 :CHAR 17 
为 了 使 打印 的 图 形 好 看 ,中 华 机 还 设置 了 两 种 打 
印 功 能 : 反 相 打印 和 放大 打印 。 可 用 参数 来 控制 。 
打印 程序 
TO LD :; 头 
OUTDEV 1 
DEPOSIT 1913 :X 
PR CHAR 17 
OUTDEV 0 
END 
其 中 ,参数 :X 控制 打印 的 类 型 。 
:X 一 1 正常 打印 ”:X=33 反 相 打印 
:X 一 65 放大 打印 :X=97 反 相 放大 打印 。 
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“ 程序 剖析 与 编程 技巧 。 


谈 谈 计算 机 病毒 


石家庄 铁道 学 院 崔 来 党 


〔 提 要 ] 本 文通 俗 地 阑 明了 计算 机 病毒 的 慨 念 和 危 实 + 详细 分 析 了 园 球 病 壮 的 侵 澳 机 吕 和 消毒 免疫 方法 ; 
综 述 了 判断 和 和子 防 病毒 的 事项 .试图 给 予 广大 微机 工作 者 关于 计算 机 病毒 较为 系统 的 知识 ,并 介绍 几 种 


解决 问题 的 实用 方法 。 


一 、 计 算 机 病毒 及 其 危害 

目前 , 常 听 人 们 说 ,你 的 磁盘 上 的 信息 破坏 了 ,我 
的 计算 机 运行 乱 了 套 , 不 几 日 ,整个 机 房 的 计算 机 几乎 
都 失常 了 。 人 们 不 明白 ,这 到 底 出 了 什么 大 问题 ? 因而 
慌张 失措 ,忙乱 不 堪 。 

这 就 是 计算 机 病毒 在 作怪 。 

计算 机 病毒 (Computer Viruses), 说 来 也 是 一 类 程 
序 , 是 由 极 少 数 人 故意 精心 编制 的 一 - 些 特 殊 程 序 段 , 通 
党 并 没有 文件 名 ,不 能 象 正 常 程序 那样 以 文件 形式 驻 
存在 盘 上 。 它 们 寄生 在 盘 文 件 的 模块 中 ,专门 起 扰乱 或 
侯 坏 计算 机 系统 正常 工作 的 作用 。 它 们 的 另 一 个 特点 
则 可 以 迅速 地 繁殖 和 传播 ,造成 对 大 批 计算 机 系统 的 
危害 ,耗费 大 基 的 计算 机 资源 和 资金 人 力 。 这 很 象 危害 
人 体 健 康 和 生命 的 微生物 病毒 ,因此 被 形象 地 称 为 “ 计 
季 机 病毒 "。 最 初 ,病毒 的 设计 者 可 能 只 是 对 非法 拷贝 
软件 进行 阻 拓 和 报复 ,后 来 竞 造成 极 严重 的 恶果 。 

1983 年 11 月 ,美国 提出 首 例 计算 机 病毒 ,至 今 才 
六 年 多 时 间 , 世 界 许多 国家 和 地 区 都 发 现 了 计算 机 病 
毒 的 侵害 ,特别 是 近 一 .二 年 来 ,病毒 的 种 类 迅速 增加 ， 
莹 延 速度 越 来 越 快 ,已 成 为 一 个 球 手 的 技术 问题 和 不 
容 忽 视 的 社会 问题 。 有 资料 统计 , 仅 1988 年 11 月 一 个 
月 ,计算 机 病毒 的 感染 给 美国 造成 的 经 济 损失 就 达 -一 
亿美 元 以 上 ,由 此 足见 问题 的 严重 性 。 

我 国 1989 年 3 月 在 重庆 西南 铝 加 工厂 计算 中 心 
发 现 计 算 机 病毒 ,成 为 我 国 计 算 机 界 1989 年 的 重大 韦 
件 . 至 今 不 到 一 年 ,其 昔 多 速 度 之 快 , 令 人 震惊 .日前 几 
乎 每 个 单位 都 有 机 子 已 染 上 了 病毒 ,有 的 已 经 发 现 , 有 
的 只 是 还 没有 发 现 而 已 ,因此 不 可 掉以轻心 。 

计算 机 病毒 的 种 类 很 多 。 从 潜伏 时 间 来 看 ,有 的 使 
机 子 发 病 很 快 ,一 旦 侵入 ,马上 使 系统 失常 另 -- 些 则 
只 有 较 长 潜伏 期 ,只 当 机 子 内 部 的 计时 器 计 到 某 特 
定 日 期 和 时 间 ,或 以 某 种 特定 参数 执行 某 个 程序 ,或 某 
种 运行 执行 到 特定 遍 数 ,或 按 下 某 种 特定 键 的 组 合 时 ， 
才 会 发 病 , 这 就 使 得 病毒 的 潜伏 期 有 时 可 长 达 数 月 其 
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至 数 年 。 在 这 段 潜伏 期 内 , 因 人 们 没有 察觉 ,会 造成 更 
多 机 子 被 感染 , -是 发 现 ,为 时 已 晚 ,从 而 造成 难以 佑 
计 的 更 大 的 损失 .从 破坏 程度 来 看 ,有 的 只 是 导致 系统 
运行 效率 明显 下 降 ,并 使 系统 产生 表面 上 的 混乱 ;有 的 
则 破坏 甚至 删除 文件 ,使 系统 瘫 商 ; 有 的 表面 上 似 年 看 
不 出 什么 ,很 隐蔽 ,但 它们 会 在 数据 文件 中 将 小 数 点 向 
左 或 向 右 移 一 : 移 , 增 加 或 抹 掉 --- 两 个 "0”, 使 结果 产生 
错误 , 却 又 不 易 发 现 , 后 果 更 不 堪 设 想 。 

只 是 使 计算 机 系统 造成 非 实质 性 混乱 ,软件 运行 
效率 下 降 ,而 不 造成 内 在 破坏 的 病毒 , 称 良性 病毒 ;使 
系统 产生 破坏 (比如 破坏 或 删除 文件 ,对 硬盘 强行 格式 
化 等 ) ,无 法 运行 ,甚至 导致 系统 崩溃 的 病毒 , 称 为 恶性 
病毒 ， 

由 于 病毒 对 计算 机 系统 造成 的 迅速 而 致命 的 危 
害 ,已 引起 有 关 各 国 的 高 度 重视 . 美国 和 日 本 均 已 组 成 
专家 班子 ,研究 对 计算 机 病毒 的 防范 。 我 国 也 已 提 到 日 
程 ,着 手 进行 研究 ,已 有 消毒 和 免疫 程序 陆续 推出 。 

二 .对 园 球 病 毒 侵害 机 理 的 分 析 

据 报道 ,目前 计算 机 病毒 已 有 30 多 种 ,还 有 的 资 
料 介绍 ,从 更 广义 角度 统计 ,为 150 多 种 。 这 些 病毒 对 
计算 机 侵害 的 机 理 和 导致 的 后 果 各 不 相同 , 因 篇 幅 所 
限 ,下 面 仅 以 常见 的 “ 园 球 " 病 毒 为 例 ,进行 概要 分 析 。 

园 球 病 毒 (Bouncing Ball Virus ) 是 … -种 良性 病毒 ， 
它 侵害 的 对 象 是 1BM---PC 系列 微机 及 其 兼容 机 。 被 侵 
害 的 微机 的 症状 是 :运行 过 程 中 , 先 在 屏幕 的 -一 角 出 现 
一 个 亮点 ,继而 上 下 移动 ,有 如 弹跳 着 的 乒乓 球 , 其 轨 
迹 近似 正 弱 曲 线 ,使 屏幕 显示 受到 干扰 , 程 冶 运 行 速度 
显著 减 慢 。 若 是 CC---DOS11 行 显 永 , 则 屏幕 还 向 上 滚 
动 ,更 加 混乱 。 这 些 现 象 越 来 越 严重 , 坡 终 导致 死机 , 重 
新 启动 后 ,过 -- 会 儿 又 可 能 发 病 。 

园 球 病毒 程序 共 长 1024 字 节 , 占 两 个 大 区 ,这 两 
个 扇 区 并 不 连 在 一 起 ,因此 病毒 程序 实际 上 分 成 两 个 
模块 , 设 为 BV 和 Bv:. BV, 是 病 过 的 传染 模块 , 它 负 责 


记 妆 其 它 盘 ,使 病毒 刘 延 , 它 侵占 软盘 的 0 面 0 道 1 扁 
区 ( 即 0 号 扇 区 ) ,该 区 原 为 正常 的 启动 引导 程序 BOOT 
区 ;BV， 是 病毒 的 触发 显示 模块 , 它 使 机 子 发 病 , 它 侵 
占 盘 上 某 … 溯 往 ( 由 工作 过 程 具 体 确 定 )? 的 第 一 鹿 区 ， 
弟 一 骨 区 装 入 原 启 动 引 导 程 序 副 本 ,在 文件 分 配 表 
FAT 中 把 该 篮 标 为 “ 坏 和 能 "这 样 就 不 会 再 被 其 它 程序 复 
盖 , 保 证 病毒 自身 的 可 人 靠 存在 。 

园 球 病毒 是 在 杀 统 启动 引导 过 程 中 由 盘 侵入 内 存 
的 .侵入 后 ,机 子 就 可 能 发 病 , 并 成 为 一 个 传染 源 . 为 了 
说 明 这 种 传染 和 发 病 过 程 , 让 我 们 先 概要 地 看 .下 下 
常 PC DOS 的 引导 步骤 ， 

PC DOS 操作 系统 由 下 列 四 个 部 分 组 成 

(人 8OOT 一 一 自 举 引导 程序 , 它 主 要 负责 在 启动 过 
程 中 把 其 余 三 个 系统 程序 装 入 内 存 

必 IBMBI。COM--- 一 基本 输入 输出 管理 程序 ,主要 
负责 操作 系统 与 外 设 之 间 的 联系 ; 

二 1BMDOS。COM 一 一 磁盘 操作 系统 本 身 , 是 PC 
DOs 的 核心 ,主要 负责 文件 管理 . 盘 块 管理 ,以 及 用 户 
可 直接 使 用 的 各 种 系统 调用 等 ; 

DCOMMAND“。COM 命令 解释 和 命令 处 更 程序 ， 
主要 负责 接收 .识别 和 执行 用 户 通 过 终端 打 入 的 命令 。 

其 中 ,BOOT 程序 在 FORMAT 命令 对 盘 格 式 化 时 ， 
就 被 放 入 软盘 的 0 面 0 道 1 骨 区 (或 便 盘 的 1 杜 面 1 
山区 ) ,系统 局 动 时 , 先 把 它 装 入 内 存 , 再 由 它 装 入 其 它 
二 部 分 。 有 具体 过 程 如 下 : 

D 系 统 冷 局 动 或 热 启 动 ,CPU 对 各 寄存 器 初始 化 

凶 从 FFFF:0H 地 址 开始 执行 指令 ,进入 ROM 
BIOS ,进行 加 电 测 试 , 然 后 执行 BOOT--STRAP(CINT 
19H) 程 序 段 ,检查 驱动 器 A 中 有 无 软盘 , 若 没有 ,再 检 
查 有 无 硬盘 Ci 

电 设 驱动 器 A 中 插 有 操作 系统 盘 , 则 将 BOOT 程 
序 由 盘 装 入 内 存 0:7C00H 地 址 ,并 将 控制 权 交 给 它 ; 

GDBOOT 再 将 上 述 其 它 三 个 文件 依次 装 入 内 存 ; 

加 检查 是 否 有 系统 配置 文件 CONFIG。SYS? 如 
有 , 按 它 指定 的 内 容 安排 系统 

他 检查 是 否 有 自动 批文 件 AUTOEXEC。BAT? 若 
有 ,逐条 执行 它 的 各 项 内 容 : 没 有 , 则 要 求 输 入 日 期 .时 
间 .最 后 给 出 系统 提示 符 . 表 示 启 动 引 导 成 功 , 可 以 输 
入 和 执行 命令 了 ， 

下 面 再 看 病毒 情况 。 

如 果盘 已 被 感 妇 ,上 述 第 咏 步 装 入 内 存 0:7COOH 
处 的 不 再 是 BOOT 得 序 ,而 是 病 帮 模 块 BV,。BV, 得 到 
控制 权 后 ,就 进行 下 面 几 项 操作 : 

必 把 本 身 再 找 几 到 内 存 最 高 端 ,并 转 到 最 高 端 这 


里 继续 执行 ; 

包 把 益 上 的 病 寿 模块 BV: 污 和 外 存 , 紧 接 在 最 高 
端的 BV, 模块 之 后 ,形成 完整 的 病毒 程序 ; 

候 把 盘 上 基 接 BV, 之 后 -一 个 扇 区 的 正常 引导 程序 
BOOT 的 副本 读 到 内 存 0:7COOH 处 , 复 盖 掉 BY ,; 

全 修改 BOOT 程序 的 NT 13H 软盘 读 写 中 断 向 
量 ,使 它 指 向 内 存 最 疝 端 的 BV,; 

加 交 出 控制 权 , 转 到 0:7COOH 开始 正常 引导 过 
程 。 

这 样 ,病毒 程序 就 完整 地 安装 在 内 存 最 高 端 ,党 
驻 , 不 被 复 盖 。 可 见 , 在 完成 正常 的 系统 引导 之 前 ,病毒 
就 已 侵入 内 存 深 处 ,并 安装 完毕 ,做 好 了 传染 和 发 病 的 
准备 。 

那么 , 园 球 病毒 到 底 是 怎样 进行 传染 和 使 计算 机 
发 病 的 呢 ? 

由 于 病毒 已 修改 了 INT 13H 中 断 闻 基 ,把 完整 的 
病毒 程序 伴 入 到 正常 的 INT 13H 中 断 处 理 程序 之 前 ， 
因此 ,每 次 访问 软盘 时 ,必须 先 执 行 病毒 程序 BV, 和 
BV:*。BV, 就 把 自身 写 到 软盘 原 BOOT 区 ,把 BV: 与 到 
某 一 空白 遍 区 , 原 BOOT 程序 则 被 揽 入 紧 近 BV， 的 下 
一 空白 肩 区 。 如 果 此 时 驱动 器 中 播 的 是 健康 琢 ,该 闪 即 
被 传染 ;如 果 揪 的 是 已 带 病 毒 的 盘 , 则 读 或 写 -- 次 ,就 
青 传染 一 次 ,增加 一 个 坏 鳞 ,减少 IK 容 底 ， 可 见 , 用 带 
病毒 的 系统 盘 启 动机 子 , 机 子 就 形成 了 传染 源 ,软盘 在 
这 种 机 子 上 一 做 读 写 操作 ,就 被 传染 。 

BV，, 的 作用 是 干扰 屏幕 显示 和 降低 程序 执行 速 
度 。. 它 用 中 断 INT IAH 读 取 机 器 时 钟 , 如 果 在 整 点 或 半 
点 钟 (如 10:00 或 10:30 等 ) 恰 好 访问 软盘 .使 用 INT 
13H, 则 要 对 INT 08H 中 断 向 量 进行 修改 。 正 常 的 INT 
08H 产生 18. 2 次 / 秒 的 计时 脉冲 ,用 来 计 算 -一 天 的 时 
间 。 病 毒 在 它 的 正常 中 断 处 理 程序 之 前 嵌入 -- 段 翌 幕 
显示 得 序 , 调 用 INT 10H 中 断 , 在 屏幕 上 显示 一 个 党 
点 ,又 由 于 每 秒 中 断 18. 2 次 ,因此 看 到 的 是 --- 个 连续 
移动 的 园 点 。 这 部 分 显示 程序 原 是 针对 25. 行 的 PC 
DOS 编写 的 .在 11 行 的 CC--DoOs 环境 中 不 能 同步 ,使 
屏幕 不 断 滚动 ,更 加 混乱 ， 另 一 方面 ,INT 08H 中 汤 处 
理 程序 前 增添 了 显示 程序 .中断 处 理 时 间 加 长 了 ,因此 
程序 执行 速度 显著 降低 .再 者 ,病毒 安装 在 内 存 高 端 ， 
占据 2K 空间 ,使 其 后 安装 的 COMMAND“。COM 下 移 ; 
而 检查 内 存 时 (比如 用 CHKDSK 命令 ), 仍 认为 COM- 
MAND 占 着 内 存 高 映 , 因 此 测试 出 来 的 内 存 容 址 就 减 
少 2K。( 未 完 待 续 ) 


“ 程序 剖析 与 编程 技巧 。 


也 谈 STC 格式 盘 作 标记 
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《 蔷 果 园 》1989 年 第 五 期 上 所 刊 《 在 STC2. 0 格 
式 化 的 软盘 片上 作 标 记 ) 一 文 , 利 用 磁道 /山区 编辑 。 
对 扇 区 进行 修改 来 达到 作 标 记 的 目的 。 使 用 繁琐 ,还 
需 专门 软件 。 本 文 介绍 另外 一 种 作 标记 的 方法 。 

在 引导 STC DOS 后 , 先 显 示 出 有 关 STC 系统 的 
字样 。 这 样 是 利用 S TO C 系统 文件 INIT 格式 化 时 
.存盘 上 的 。 我 们 只 需 对 INIT 文件 作 些 修改 ,就 可 以 
格式 盘 上 作 标 记 了 。 

通过 对 INIT 文件 的 研究 ,开机 显示 的 屏幕 内 容 
在 INIT 文件 中 的 $3B00- $ 3EFF 处 , 它 与 屏幕 缓冲 
区 地 址 $400- $7FF 不 是 一 一 对 应 的 关系 。 而 是 
$ 3B00- $ 3BFF 对 应 $700- $7FF，$ 3C00- $ 3CFF 
对 应 $600- $6FF，$ 3D00- $3DFF 对 应 $500- 
$ 5FF, $ 3E00- $ 3EFF 对 应 $ 400- $ 4FF .知道 这 样 
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的 对 应 关系 ,就 可 以 作 标 记 了 。 下 面 举例 说 明 。 

把 开机 启动 后 要 显示 的 内 容 ( 即 标记 ), 先 使 其 
显示 在 屏幕 上 ,并 存盘 。 如 文件 名 是 ABC, 则 键入 
BSAVE ABC,A$400,L$ 3FF。 

在 DOS3. 3 下 将 STC 格式 化 文件 INIT 调 入 内 
存 ;BLOAD INIT。 再 将 文件 ABC 调 入 内 存 , 不 要 调 
入 文本 显示 区 ,而 不 应 破坏 INIT 文件 , BLOAD 
ABC,A$800。 进 入 监控 .CALL-151。 按 照 对 应 关系 ， 
键入 以 下 移动 指令 ;3E00(800. 8FFM 、,3D00(900. 
9FFM 、,3C00(A00. AFFM 、,3B00(B00. BFFM 

这 样 , 作 好 标记 的 新 的 INIT 文件 就 完成 了 。 最 
后 将 新 文件 存盘 ,BSAVE INIT ,A$c00,L$4400。 
利用 INIT 文件 可 格式 化 许多 盘 ,而 每 个 盘 上 都 带 有 
这 样 标 记 。 


. 苹果 园地 . 在 BASIC 中 使 用 16 进 制 数 
支 汉 华中 师范 大 学 许 勇 
一 .引言 Apple aoft BASIC ” 滨 程 序 存 贮 区 是 以 程序 区 首 


在 BASIC 语言 中 ,常用 CALL,POKE ,PEEK 语 
句 调用 机 器 语言 ,访问 内 存 . 触 发 软 开 关 。 但 这 些 命 
令 后 面 的 内 存 地 址 和 数据 必须 用 10 进 制 数 表示 。 那 
么 ,在 BASIC 中 能 直接 使 用 16 进 制 数 吗 ? 本 文 就 是 
要 回答 这 个 问题 。 

我 们 知道 在 BASIC 状态 由 键盘 向 计算 机 输入 
潜 程序 时 ,各 程序 行 都 是 以 字符 形式 逐一 送 到 键盘 
缓冲 区 ($ 2600 一 $2FF), 当 打 入 回 车 键 后 ,表明 这 
一 程序 行 输入 完毕 。 计 算 机 立即 判断 缓冲 区 的 首 字 
符 是 否 为 数字 , 关 是 , 便 看 成 为 延缓 执行 方式 ,将 缓 
冲 区 的 信息 经 代码 转换 后 送 到 内 存 中 的 BASIC 源 
程序 存 贮 区 ,而 并 没有 由 BASIC 解释 执行 程序 进行 
语法 错误 判断 。 故 我 们 在 编制 和 输送 向 计算 机 输送 
BASIC 源 程 序 时 , 除 行 号 外 其 它 数据 完全 可 以 使 用 
十 六 进 制 数 .而 在 运行 源 程 序 时 ,只 须 选 时 源 程 序 存 
贮 区 进行 一 次 扫描 ,将 十 六 进 制 数 自动 转换 为 十 进 
制 数 ,并 用 十 进 制 数 对 应 ASciI 码 来 覆盖 其 十 六 进 
制 数 对 应 的 ASCII 码 即 可 。 

二 、BASIC 源 程序 存 贮 区 简介 
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址 指针 ($67、$68) 所 指向 的 内 存 地 址 开始 和 以 末 
址 指针 ($AF,$8B0) 所 指向 的 内 存 地 址 为 结尾 的 区 
域 . 在 程序 区 中 ,各 程序 行 按照 行 号 的 顺序 从 首 址 指 
针 所 指 内 存 地 址 开始 依次 存放 。 其 结构 为 一 链 式 结 
构 ,一 个 程序 行 即 为 一 个 链 ” 。 每 个 链 开 始 两 字 节 存 
放 一 个 链 指 针 是 指明 下 一 个 链 存放 的 起 始 地 址 ,三 、 
四 两 字 节 是 为 本 程序 行 的 行 号 ,用 16 进 制 数 表示 。 
接 下 去 是 本 程序 行 的 内 容 , 除 保留 字 为 内 部 代码 外 ， 
其 余 均 为 各 字符 的 ASCII 码 (高 位 为 0)。 各 链 之 间 
用 “00” 作 为 程序 行 的 分 隔 符 。 

三 、 转 换 程 序 的 设计 

转换 程序 的 设计 流程 图 如 图 一 所 示 

其 设计 原理 如 下 :从 softBASIC 源 程序 区 首 地 
址 开始 进行 逐 单 元 的 扫描 ,将 源 程序 区 中 24( 十 六 
进 制 “$ "的 ASCII 码 ) 后 接 用 ASCII 表示 的 16 进 制 
数 转换 成 用 ASCII 表示 的 十 进 制 ,并 用 后 者 去 覆盖 
程序 区 中 的 前 者 。 从 而 达到 将 BASIC 源 程 序 中 16 
进 制 数 自动 转换 成 10 进 制 数 的 目的 .考虑 到 程序 行 
中 的 链 指针 和 行 号 有 被 当 作 16 进 制 转换 的 可 能 , 故 


在 扫描 到 这 4 个 地 址 单元 时 纂 号 过 。 
并 设置 扫 摘 指针 


扫描 指导 而 4 区 
且 过 程序 行头 4 字 节 







埃 "$ "后 最 
ASCII 码 转换 成 原 


Y 
后 四 位 十 六 进 制 数 的 
$6. $ 


将 ($6. $7) 中 原 码 转换 成 十 进 制 数 
以 ASCII 码 形成 存在 $ 100 一 $ 109 中 


十 进 制 数 ASCII 人 码 覆 盖 程 序 区 中 
被 转换 十 六 进 制 数 ASCI 侈 


图 1 转换 程 太 设计 的 流程 图 


\ 源 程序 清单 及 应 用 举例 
本 程序 用 6502 汇编 语言 编写 .在 APPLE 及 其 
兼容 机 上 通过 ,其 源 程 序 清单 (机 器 码 ) 如 下 。 


0378- 34 ED AD 00 0 5C9 2D Do 
0380- 22 A9 93 85 A5 A9 20 895 
03838- A6 A9 .00 85 A7 85 A8 8o9 
0390- A9 85 AA A4 06 A5 07 20 
0398- F2 E2 20 DO EE 20 AAA E7 
03A0- 20 34 ED 68 85 68 68 铝 
03A8- A2 00 BD 00 0 F0O 09 9 
03B0- 67 EB 20 23 03 4C AA 03 
03B8- C4 08 EO 07 A9 20 91 67 


02F2- A5 67 48 A5 68 48 

02F8- C6 67 A0 00 20 23 03 20 
0300- 23 03 20 23 003 20 23 03 
0308- C4 AF DO 0OD A5 68 C5 BO0 
0310- D0 07 .68 85 68 .68 85 067 
0318- 60 20 23 03 Bl 67 D0 09 
0320- 4C FC 02 C8 D 02 E6 68 
0328- 60 CC9 24 D EC 98 48 AO 
0330- 68 48 A2 00 86 .06 86 07 
0338- 86 .08 20 23 03 Bl 67  E6 
0340- 08 .09 80 49 BO C9 0A 90 
0348- 14 .69 88 (C9 FA BO 0OE  A5 
0350- 08 C9 0I D 19 .8 85 68 
0358- 68 A8 4C 19 03 A2 03 0A 
0360- OA OA OA OA 26 .06 .26 07 
0368- CA 1l0 F8 4C 3A 03 84 08 
0370- A4 06 A5 107 20 F2 E2 20 


03CO- 20 23 03 4C IC 03 


将 程序 送 到 $2F2 一 $3c5 后 , 即 可 存盘 以 备 
用 , 当 需 要 对 用 16 进 制 数 编写 的 BASIC 源 程序 运 
行 时 , 先 调 出 本 转换 程序 ,然后 键入 CALL754 ,就 
能 运行 用 16 进 制 数 编写 的 BASIC 程序 。 举 例如 下 : 
10 POKE $ 3F5, $ 4C 
20  POKE $ 3F6, $F2 
30 POKE $3F7,$3 
40 A$ 一 "rQWERTYUIOASSDDF" 
50 B$ 王 MID$CA$ ,$A，,1) 
60 PRINT B$ 
70 “PRINT $EFFFF 
] CALL 754 
] LIST 
10  POKE 1013,76 
20  POKE 1014,242 
30  POKE 1015,3 
40 A$ 王 "QWERTYUIOASSDDF” 
50 B$=MID$CA$ ,10,1) 
60 PRINT BV$ 
70 PRINT 65535 
] RUN 
A 
65535 


五 . 几 点 说 明 

1 本 程序 可 转换 $o~ $SFFFF 除 $DEF 外 任 
何 16 进 制 整数 。 当 超过 四 位 数 时 ,只 取 后 四 位 。 

2 .本 程序 设计 的 意义 远 非 如 此 。 利 用 本 程序 的 
设计 思想 ,只 须 改变 图 中 虚线 框 内 的 内 容 , 可 直接 对 
BASIC 源 文 件 进行 自动 编辑 ,如 蔡 换 .删除 字符 等 。 
另外 , 它 也 可 将 BASIC 源 文 件 中 的 某 些 关键 字 , 某 
些 重 要 的 变量 .常量 转换 成 不 可 识别 的 密码 ,即使 能 
列 出 其 BASIC 源 程 序 清单 ,别人 也 很 难 读 懂 , 更 无 
法 运行 。 要 想 运行 只 有 通过 转换 程序 将 密码 变 为 正 
常 码 。 实 践 表 明 , 这 种 开放 性 加 密 的 效果 较 好 。 
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“ 苹果 园地 。 


AbPLE EDIT 文本 编辑 程序 


哈尔滨 科技 大 学 傅 增 明 


文本 编辑 程序 用 于 输入 文本 ,修改 订正 ,打印 输出 
和 把 文本 存 入 文件 中 ,是 字 处 理 系 统 的 重要 组 成 部 分 。 
作者 用 BASIC 语言 编写 了 一 个 文本 行 编辑 程序 AP- 
PLE EDIT ,并 应 用 于 苹果 机 MCS 一 51 单片机 交叉 汇编 
软件 *SUPER/8051? 中 .、“SUPER78051" 是 目前 革 果 机 
上 速度 最 快 、 功 能 最 强 . 容 节 最 大 并 可 与 许多 常用 单 片 
开发 机 (仿真 器 ) 通 讯 的 交叉 汇编 ,采用 APPLE EDIT 
文本 编辑 程序 和 一 个 条 件 汇编 程序 相互 结 食 作 为 交叉 
汇编 的 编辑 程序 ,使 汇编 速度 起 过 1IBM---PC 机 上 常用 
的 51 单片机 交叉 汇编 。 

一 、 APPLE EDIT 的 操作 命令 

ICCR] 文 本 输入 命令 。 键 入 该 命令 后 ,自动 显示 行 
对 。 如 果 键 入 ICCRI] 前 ,苹果 机 内 没有 文本 行 . 则 行 导 
从 1 开始. 如 果 机 内 已 有 文本 行 , 则 ICCR] 命 令 不 损 趟 
诛 有 文本 , 行 导 从 原 有 文本 的 行 数 加 -一 开始 。APPLE 
EDIT 的 每 个 文本 行 叮 和 输入 255 个 字符 。IL5CR 命令 
由 CTRIL--7 返 癌 ， 

nICCRI] 捅 入 命令 .在 第 n 一 上 行 和 n 行 之 间 插 入 -- 
行 , 禁 入 行 的 行 号 为 mn 第 n 行 以 后 的 行 导 全 部 加 1.。 插 
入 … 行 后 ,自动 退回 。 如 果 在 未 输入 回 车 符 前 ,键入 
CTRI1L -7 了 , 则 刚 输入 的 行 作废 ,并 把 原来 的 第 n 行 复制 

- 行 。 

ee 
表 过 程 中 可 由 CTRL-S 暂停 ,CTRL-Z 中 断 怒 问 。 
了 能 够 显示 完 政 的 行 ， 0 
呈 , 才 采样 CTRL-Z 人 好 。 

nlLECR] 对 示 第 mn 行 .日 动 返回 生体 状态 。 


CR 从 第 n 行 下 始 列表 ， 可 由 CTRLS 暂停 . 
CIRL-2 7 中 疡 返 局 ， 
nECCR2 修 改 命令 .。 当 青 要 修改 第 nm 行 时 键入 次 后 


令 ,APPLE FDIT 由 容 , 并 请 冰 输 入 新 
的 --- 行 内 容 , 回 车 后 自动 返回 等 待 状态 .如果 在 回 车 前 
键入 CTRL-Z, 则 新 输入 的 行 作 路 ,修改 前 的 行 仍 有 
效 。 

nDICRI] 删 除 第 n 行 。 

nD-5CCR2 删 除 第 mn 行 开 
行 。 

n 一 nzD 一 CCR 删除 第 n 行 到 第 nz 行 之 同 (包括 
第 m 行 和 第 nz 行 ) 的 所 有 文本 行 ， 

PCCR] 打 印 输出 命令 . 藻 键 入 该 全 
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始 到 最 后 一 行 之 问 的 所 有 有 


令 前 ,打印 机 应 


准备 就 绪 。 打 印 前 可 选择 是 何 打 印行 所 。 
SKCR] 文 本 存 入 软盘 文件 命令 。 键 入 该 命令 司 需 


输入 文件 名 。 可 用 [,Dn] 指 明 驱 动 器 号 。 
RCR] 软 和 文件 读 入 内 存 。 当 一 个 文件 读 入 内 存 
上 后 ,机 内 原 有 文本 即 毛 失 . 


CECR -最 示 软盘 文件 日 录 。 
QICR 3 退出 文本 编辑 程序 。 
[CR 显示 操作 命令 简介 。 
二 、APPLE EDIT 程序 
I0 DIM 和 A$ (999 ) 
15 ONERR GOTO 30 
20 ZI=1:Z6=0:GOSUB 7000 
30 PRINT:CALL -868:INPUT“COMMAND7” LU 
30 IFLh$ = ”THEN GOSUB 80 
40 IF RIGHT 有 (LS .1) =”“L”OR RIGHT 有 (有 2) 
THEN GOSUB 600 
45 IFL$ -"P”THEN GOSUB 700 
50 IFL$ 一 "S”THEN GOSUB 800 
55 IF RIGHT 和 CLASS .1) -DTHEN GOSUR 400 
60 IF RIGHT 有 书 (L$ .2)-“D ”THEN AS$S(0) 一 STR 
$(VAL (LS$ )-- 1):GOU00 30 
65 IFL$ = R”THEN GOSUB 860 
70 IFL$ 一“"Q”THEN END 
75 IEL$=”" ”THEN GOSUB 7000 
76 JEF RIGHT 和 (人 L 中 .1) 一 "FF”THEN GOSUB 930 
78 IFEL 和 $ 一 “GC”THEN 100 
80 IF RIGHT 有 (LS .1) -全 THEN GOSUB 970 
83 IF RIGHT$S(L4 ,2 2D= ”THEN 500 
85 COTO 30 
90 W=vYAL(A 下 40)) 
100 WwW 一 w+ZI:GOSUB 105;:A$(0)-- STRSIw):GOTO 
100 
105 PRINT W": ;LABCo) 
110 GET 人 再 :IF AN =CHRS$S(13) OR 入 册 :: 
THEN 180 
120 IE A44<> CHR 和 有 (8) THRHEN 132 
125 IF LEN (B$)-:0THEN 110 
130 IFELEN (B$) -1THENB 和 4 =” ”:PRINT A 和 :;” :A 
$ ;, :GOTO 125 
131 8B$=LEFT 叫 (8B 有 书 .LENIB$ ) 一 7Z1):PRINT A 趾 ” 
A$5:GOTO 110 
132 PRINT AS 有 ::IFEF A 相 一 


CHR (2 ) 


CIIR 和 21) THEN 110 


140 IFA$ --“,”THEN B$ 一 B$ CHR$(159):GOTO 
110 

150 IF A$=“:”THEN B$ 王 8B 和 4 十 CHR$(158) :GOTO 
110 

160 B$=B8$ 二 AS$:GOTO 110 

180 IF A$ 王 CHR$(26) THEN POP:PRINT““- Z”;GOTO 

30 

190 A$iCw)=B$ 书 :B$ =“":PRINT :RETURN 

400 INPUT“..DRIVE.NO.. (172)”;L:IF L>2ORL<-l 
THEN 30 

110 PRINT CHR $ (4);“CATALOG D?;L 

420 GOTO 30 

500 J= vAL(A$(0)):K= VAL(GL$ );FOR 1 一 2 TO 4;IF 
MID$(L$ .1,1)=“--”THEN 520 

510 NEXT I;GOTO 30 

520 L$:=RIGHT$(L$ ,LENGL$ )-U):L=VAL (LS$ :下 
K>>L THEN 30 

530 IF K>> 王 JOR L =JTHEN 30 

540 FOR [=L 二 ZILTOJ:A 和 $CK 二 1I 一 L 一 ZI1) 一 A$(I): 
NEXT 1 

550 A$(0)=STR 有 $ (J 一 L 十 K 一 Z1):GOTO 30 

600 IFL$ =-“L" THEN R--1:;GOTO 640 

610 R=VvALI(CL$ ):IF RIGHT$(L$ ,1) 王 “ ”THEN 640 

620 IF R>>VAL (A$ (0)) THEN RETURN 

630 WwW--R:GOSUB 670:RETURN 

640 IF R>VAL(IA 和 (0)) THEN RETURN 

650 ”FOR WwW 王 RTOVAL IIA$(0)):GOSUB 670:1IF PEEK 
(49152) 一 154 THEN POKE 49168 .0;RETURN 

660 NEXT WwW :RETURN 

670 PRINT Wi :"ITAB (5); 

675 1=LEN (A$(wW)):IE 1=0THEN PRINT，RETURN 

677 FOR J 一 Z1TOI:AS$=MID$CA 和 SCW),J.Z1):IF ASC 
(A 和 $$)-=158 THEN PRINT“ :中 

680 IE ASC(A 蔬 ) -159 THEN PRINT”、; 

690 PRINT A 币 : 

695 NEXT ;PRINT:;RETURN 

700 INPUT “TARLE(Y7N)”":L 中 

710 PR 上 1:POKE 1657 .40:PRINT 

720 IFL$ -“Y"”THEN FOR wW-Z1ITOVAL (AU 有 SCZ6) ): 
CGOSUB 670;NEXT W 

730 IFL$ 一“N" THEN FOR WwW=ZITOVAL(CA 有 SCZ6)): 


740 
800 


805 
810 
8195 
820 
830 
840 
860 


870 
880 
885 
890 
895 
900 
910 


920 


930 
940 


950 


960 


970 


9795 


980 


7000 


7010 


GOSUB 675:NEXT W 
PR# 0:RETURN 
PRINT “SAVE TO DISK”:INPUT “NAME:”;R 和 $ :IF R 
$ =“”THEN 800 
D$ 王 CHR$(4) 
PRINT D$ ;“OPEN"”;R 
PRINT D$ WRITE?”;R$ :PRINT A$(0) 
FOR 1! 王 1 TOVAL(IA 和 $(0)):PRINT A$(1) :NEXT 1 
PRINT D$ “CLOSE?;RS9 
RETURN 
PRINT“READ FROM DISK”:INPUT “NAME:”;R 有 $ ， 
IF R$ 一 ””THEN 860 
D$-CHR9(4) 
PRINT D$ , “OPEN”;R$ 
PRINT D$ “READ”;R$ :INPUT A$(0) 
FOR 1I=1 IOVAL (A$(0)): INPUT A$(1): NEXT II 
PRINT D$ “CLOSE”;"R $ :RETURN 
IFL$ 一“D”THEN RETURN 
K 王 VALCLS$ ):J=-VAL (A$(40)):IEF K>>J THEN RE- 
TURN 
FOR 1=-K TO J:A$(D)=-A 和 CI+1I):NEXT 1:A$(0) 
一 STR $ (J 一 1) :RETURN 
IFL$ =“E”THEN RETURN 
K0 王 VALCLY$ ):J=VAL (A$(0)):IF K0>J THEN 
RETURN 
IF K0 王 0 THEN RETURN 
WwW 王 K0:GOSUB 670:GOSUB 105 ;PRINT :RETURN 
K0 王 VALCGL 和 $ ):J 一 VALIA 和 (0)): IF K0 二 J THEN 
RETURN 
IF K0 王 0 THEN RETURN 
FOR 1I=J TO K0 STEP 一 1:A$(CI 二 ZL) 一 A$(CU: 
NEXT 1:A$(0) 王 STR$(J 十 Z1):W 王 K0:GOSUP 
105:PRINT:RETURN 
HOME : PbRINT“TEXT FDIORK...... 1 7ZFN4Gi 
MING. . 1989. 9. 15. . TONGXUN 
:. HARBIN.KEJI. DAXUE. 105. XINXIAN"” 
PRINT “1 INPUT"”: PRINT "Ly LIST”: PRINT“P、 
PRINT": PRINT“C7CATALOG" :PRINT “SSAVE": 
PRINT "”Dy DEL": PRINT“R READ"”: PRINT“E， 
REENTER”:PRINT“QO)QUIT ":RETURN 
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关于 在 各 省 ,市 . 目 治 区 组 建 (中 华 学 习 机 } 和 杂志 
记者 站 的 通告 
为 了 促进 我 国电 脑 普 及 教育 事业 和 电脑 产业 的 发 展 , 让 中 华 学 习 机 系列 进入 学 校 , 走 向 家 族 , 面 向 社会 ,面向 


生活 ,为 子孙 让 补 , 中 国 中 华 学习 机 普及 协会 创办 的 《4 中华 学 习 机 ?杂志 ,将 于 1990 年 1 月 创刊 ,为 此 (中华 学 习 
机 ?》 杂 专 社 犊 决定 在 全 国 备 省 .市 自治 区 及 有 关 部 门 与 单位 ,组 建 《 中 华 学 习 机 》 杂 志 记 者 发 行 站 。 欲 应 聘 通讯 记 


者 ,成 立 记 者 发 行 站 的 单位 和 个 人 , 清 来 信和 联系 。 


“ 苹果 园地 。 


摆 线 型 效 饰 图 素 的 交互 设计 
昌 淖 农 校 部 刚 


摆 线 又 称 旋 轮 线 ,不 仅 在 工程 上 有 广泛 的 用 途 ( 如 
转子 油泵 .三 角 旋 转 活塞 、 摆 线 间歇 机 构 等 ), 而 且 也 是 
一 种 艺术 性 很 强 的 曲线 。 用 它 可 以 构成 许 许 多 多 漂亮 
的 花纹 图 案 , 用 作 地 毯 、 台 布 . 获 纸 、. 器 亚 等 商品 的 装饰 
和 装 满 ,以 美化 人 们 的 生活 。 

摆 线 的 传统 作 图 方法 大 致 有 两 种 :一 种 是 利用 模 
似 曲 线形 成 过 程 用 几何 作 图 法 画 出 曲线 ; 另 一 种 是 根 
据 曲 线 方程 用 求 点 描 线 法 画 出 曲线 。 用 这 两 种 方法 人 
工 绘图 设计 图 案 时 ,是 非常 费时 费力 的 ,不 便于 作出 众 
多 方案 进行 比较 ,限制 了 摆 线 的 应 用 。 本 文 所 给 出 的 程 
序 则 是 通过 人 一 机 对 话 键入 参数 和 指令 ,利用 计算 机 
绘制 曲线 ,对 摆 线 型 装饰 图 案 进 行 交 互 设 计 , 从 而 使 设 
计 人 员 从 繁杂 的 绘图 劳动 中 解脱 出 来 。 设 计 人 员 可 根 
据 需 要 ,对 计算 机 绘 出 的 图 案 选 择 比 较 , 决 定 取舍 , 提 
高 了 设计 效率 。 另 外 ,运用 这 种 交互 设计 方法 ,对 改造 
传统 工艺 也 具有 重要 意义 。 

程序 用 BASIC 语言 编写 ,在 APPLE 一 工 机 上 调试 
通过 。 

一 、 程 序 设 计 原 理 

由 解析 几何 学 知 , 当 一 个 动 圆 沿 着 一 定 线 ( 可 以 是 
直线 或 圆 ) 作 纯 滚动 时 , 动 圆 上 (包括 圆周 上 或 圆周 内 、 
外 ) 的 点 的 运动 轨迹 称 为 摆 线 。 摆 线 有 平 摆 线 .外 摆 线 、 
内 摆 线 三 类 ,每 类 还 可 分 为 普通 摆 线 ,长 幅 摆 线 和 短 幅 
摆 线 三 种 .下 面 是 本 程序 所 依据 的 内 、 外 摆 线 的 一 般 参 
数 方程 (参见 图 1) : 


上 。COS6L 。R， 。 COS(1 十 下 8 


y 一 (R, 十 R:)。Sinb 一 L。R:。 Sin(1 十 弄 )8 
2 


式 中 ; 

R, 一 一 定 加 半径 

R: 一 一 动 四 半径 

L 一 一 比例 系数 

曲线 形状 由 参数 R, .Rs、L 确定 。 了 解 它 们 对 线 型 
的 影响 ,对 设计 是 很 有 帮助 的 。 

当 R?>0 时 ,曲线 为 外 摆 线 ! 当 Rz<0 时 ,曲线 为 
内 摆 线 ; 当 R:=- 0 时 ,曲线 为 贺 ， 

两 图 半 径 之 比 太 在 数值 上 等 于 两 圆 的 周 长 之 比 。 
当 比 值 等 于 1 时 ,曲线 是 心脏 线 ; 当 比值 是 整数 时 , 曲 
线 由 有 限 条 曲线 分 支 组 成 ,曲线 首届 相 接 ; 当 比值 是 分 
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调子 程序 300, 打 印 出 该 


数 ( 分 子 . 分 母 互 质 ) 时 ,曲线 由 有 限 条 交错 的 曲线 分 支 
组 成 ,曲线 首尾 相 接 ; 当 比值 是 无 理 数 时 ,曲线 的 分 支 
为 无 穷 多 ,曲线 首尾 水 不 相 接 , 此 时 应 人 为 地 限制 绘图 
周期 (本 程序 限 在 6x 内 ) 。 

比例 系数 是 动 点 到 动 圆 圆心 0: 的 距离 与 动 图 
半径 R: 之 比 。 当 = 1 时 , 动 点 在 动 圆 圆周 上 ,曲线 为 
普通 摆 线 ; 当 上 >1 时 , 动 点 在 动 圆 圆 周 外 ,曲线 为 长 幅 
摆 线 ?; 当 L< 1 时 , 动 点 在 动 圆 圆周 内 ,曲线 为 短 幅 摆 
线 。L 必须 >0。 

编程 粗 框图 如 下 : 


定义 函数 ,选用 HGR， 解 释 参 数 含义 







RM 之 Y C 
( 超 界 生 ) 


要 求 重新 输入 参数 


计算 曲线 初始 点 与 终止 点 坐标 


y 
两 点 是 否 很 邻近 ? 


限制 绘图 周期 


计算 各 点 坐标 , 绘 出 整个 曲线 


输入 设计 选择 :F( 王 1.2.3) 
本 弄 











为 防止 图 形 超出 屏幕 范围 ,应 计算 出 曲线 外 接 圆 
的 半径 Ru 作为 绘图 窗口 。 由 图 1 可 以 看 出 ,对 于 普通 
及 长 . 短 幅 内 、 外 摆 线 ,Ru 王 Ri 十 R: 十 |IL* Rz|y 对 于 短 
幅 外 摆 线 ,Ru 王 Ri 十 2 * Ri 对 于 短 幅 内 摆 线 ,Ru 一 R, 。 

二 、 程 序 使 用 说 明 

运行 程序 

1 .显示 出 

R, 一 FIXED CIRCLE 

R: 王 MOVING CIRCLE (R:> 0 一 EXT. CIRCLE) 
(R:<0 一 一 INT. CIRCLE) 

L MUST>0 

R,,R2:, 上 = 王 

这 时 应 键入 定 圆 半径 R, 、 动 圆 半径 Ri .比例 系数 


2, 若 显示 出 : 

REINPUT R,,R。 

R,,R:, 江 一 

说 明 参 数值 太 大 ,图 形 超 界 。 这 时 应 重新 键入 Ri、 
R: 和 值 。 

3. 画 出 整个 曲线 ,然后 显示 : 

INPUT F= 1/2/3 一 一 GO ON/CLEAN/END 

下 一 





Q)， 外 拒 线 


这 时 可 根据 设计 需要 ,键入 数字 1、2 或 3, 实现 
“ 添 画 图 形 ”“ 控 去 该 图 "或 “打印 结束 ”。 具 体 做 法 是 ， 
1". 当 对 绘 出 的 图 形 感到 满意 ,但 需要 在 此 基础 
上 继续 添 画 图 形 时 ,可 键入 数字 “1”。 这 时 计算 机 便 打 
印 出 这 个 图 形 的 参数 ,然后 回 到 第 一 步 ; 
2 当 对 绘 出 的 图 形 不 满意 时 ,可 键入 数字 “2”。 
这 时 计算 机 便 将 该 图 形 控 掉 ,然后 回 到 第 三 步 
3". 当 对 整个 图 案 感 到 满意 ,可 键入 数字 “3”。 这 
时 计算 机 打印 该 图 形 , 运 行 结 束 。 
附 : 源 程 序 和 几 个 装饰 图 案 实例 
10 “REM EPICYCLOID AND HYPOCYCLOID 
20 DEF FN X(TH)=Z1w COS(TH) 一 Z3 * COS (Z2 * TH) 
30 DEF FN Y(TH)=Z1* SIN(TH) 一 Z3 * SIN (Z2 * TH) 
40 HGR:HCOLOR=3:XC=140:YC=80 
50 ”PRINT“R1 = FIXED CIRCLE"”, PRINT“R2 = MOVING 
CIRCLE(R2 之 0…EXT . CIRCLE)(R2 一 0-- -INT. CIRCL 
E)” 。 
60 PRINT“L MUST>0” 
70 INPUT “R1,R2,L 一 ”;R1,R2,L 
80 IFL>=1THEN M=Ri 十 R2 十 ABS (Lw Rz):GOTO 110 
90 IF R?>0 AND L<1 THEN M= Ri 十 Ri * 2;:GOTO 110 
100 M=Rl 
110 IF M>YC THEN PRINT “REINPUT R1,R2”:GOTO 70 





23 


120 Z1=RI 十 R2:Z3 王 L*R2:IF R2 一 0THEN Z2 三 0;GO- 
TO 130 320 

125 Z2 王 (R1 十 R2)/R2 

130 PI=3. 1416:;B 一 2* PI:X0 王 FNX(0):Y0 王 FN Y(0) 

140 X 王 FEN X(B):Y 王 EN Y(B) 

150 IF ABS (X 一 X0)<<1E 一 4 AND ABS (Y 一 Y0)<1E 一 4 
THEN 170 

160 B 王 B 十 2* PlL:IF B<3* 2* PI THEN 140 

170 FOR A=0ToO B 十 0. 1 STEP 0. ] 

180 X 王 XC 十 FN X(A):Y=YC 一 FN Y(A) 

190 IF A=0THEN HPLOT X,Y 

200 HPLOT TO X,Y:NEXT A 

210 PRINT “INPUT F 一 1/2/3---GO ON/CLEANVEND” 

220 INPUT “F 王 ”;F:ON F GOTO 230,240,250 

230 GOSUB 300:HCOLOR 王 3;GOTO 50 

240 “HRCOLOR=0:;HH=-1;GOTO 170 


L 


PRINT CHR$(4);…“PR#0”":HH 王 0:RETURN 


250 GOSUB 300:PRINT CHRS$ (4); “PR # 17:POKE 1913， 
1 :PRINT CHR$ (17) :END 

300 PRINT CHR$(4) 久 PR 共 1” 

305 IF HH 王 1 THEN 320 

310 PRINT "RI 一 ”;RIi:PRINT“R2=”:R2:PRINT“L 一 ”: 





* 实用 程序 


RI=25  RI 一 20  RI 一 15 
R2 一 2 R2 一 2 R2 一 3 
L 一 1 L 一 6 L 一 5 
RI=21  RI=50  RI 一 30 
R2 二 1 R2 二 -1 R2 一 一 1 
L 一 6 L=! L-- 1 
R1 一 60 ”RiI=60  RI=-60 
R2 一 一 2 R2=0 R2 一 5 
L 一 3 L 一 2 L 一 2 
RI:=58  RI 一 65 BRI=-54 
R2 一 0 R2 一 0 R2=0 
L 一 4 L 一 3 L=-2 
R1 一 52 R1I 一 50 
R2:=0 R==0 

L 一 3 L 一 | 

〈 图 略 ) ( 国 略 ) 


Di 





中 华 学 习 机 第 十 一 行 显 字 


张 昌 民 


西安 电子 科技 大 学 


中 华 学 习 机 只 能 显示 十 行 .第 十 -一 行 供 汉 字 输 入 
用 。 

污 者 在 分 析 驻 机 ROM 程序 的 基础 上 , 编 了 一 段 
小 程序 ,可 以 在 输出 口 $36,$37 两 单元 截断 后 ,在 第 
十 一 行 显示 汉字 .。 为 了 方便 ,由 BASIC 语言 编程 。 其 中 
前 两 个 语句 是 建立 -个 输出 截断 程序 ,只 占 内 存 的 29 
个 单元 。 如 果 想 把 这 小 程序 放 在 其 它 地 址 ,只 需 更 改 司 
边 的 54,55 两 单元 的 值 即 可 。 

程序 运行 后 ,在 第 十 -- 行 显示 “中 华 学 习 机 
ZHONG HUA XUE XI JI1”, 在 屏 中央 显 示 “ 您 好 ”。 只 要 
不 进入 汉字 给 入 方式 ,第 十 一 行 显示 的 字 不 会 清 掉 .用 
户 也 可 以 用 hG2 清 十 -- 行 .HOME 不 会 清除 十 一 行 的 


4 机 
7 
了 全 


21 


前 两 句 建立 的 输出 截断 小 程序 地 址 在 $$300 到 
$31C。 
程序 清单 
10 DATA 32.171.195,201.127,240,.16.72.173,203 .3， 
201.2,.104,9,.128,176.5.41.127.32.125 .23449,.32,.13,.238， 
76.185 ,195. 
20 FOR !=0To 28:READ V:POKE 768 十 1,V:NEXT 
30 A=PEEK(54):B 一 PEEK(55);POKE 54,0:POK- 
E55 .3 
{10 “POKE 36,.0:; POKE 37, 10: PRINT “路 华 学 司机 
ZHONG HUA XUE X1J1" 
50  POKE 51,A:POKE 55.b 
60 HOME :HTAB 16:VTAB4:PRINT ” 低 妈 f 


“ 苹果 园地 


汇编 语言 列 印 探讨 


苏州 师范 专科 学 校 


APPLE 监控 程序 中 的 LL 命令 能 将 机 器 语言 进行 
反 汇 编 , 每 输入 -个 L 命令 便 在 输出 设备 上 列 出 二 十 
行 的 汇编 程序 .然而 , 当 我 们 硕 望 在 打印 机 上 得 到 一 份 
很 长 的 机 器 语音 反 汇 编 请 单 时 ,就 不 得 不 输入 多 个 1 
命令 ,而 且 每 页 纸 只 能 印 上 人 列 汇 编程 序 , 很 费 打 印 
纸 。 
笔者 在 全 究 了 监控 列表 命令 后 编制 了 多 功能 汇编 
语言 列 印 工具 。 该 工具 程序 由 BASIC 程序 (程序 1) 和 
机 器 诸 言 程序 (程序 2) 组 成 。 前 者 完成 参数 的 设 响 及 
机 器 语言 程序 的 调用 ,上 司 者 完成 汇编 语言 的 列 印 工作 ， 
提高 了 运行 速度 ， 
本 工具 使 用 户 能 完全 按 自 己 的 要 求 来 列 出 机 器 语 
言 的 反 汇 编 消 单 ,包括 指定 每 页 列 印 几 列 . 几 行 以 及 单 
面 列 印 偿 是 双 面 打印 ,这 些 格式 指定 后 ,只 要 输入 痛 地 
址 和 来 地 址 即 可 。 在 双 而 列 印 时 ,中 途 把 打印 纸 翻 过 
BANSIC 和 己 序 以 SAVE ASMIST 命令 存 替 。 机 器 请 
泊 程 序 以 BSAVF ASM. OBJ,A 有 2000.1 再 18C 命令 他 
是 。 
程序 ! 
5 P$="“"0123456789ABCDFF":SA 一 8192:REM SA 
一 $2000 
10 IF PFEK (8192) < > 169 THFEN PRINT CHR 
$(4):“ BLOAD ASM. OBJ,A 和 2000” 
20 HOME :IF PEEK(49601) 之 = 128 THEN PRINT 
“TURN ON YOUR PRINTFR 1I” 
30 IF PEEK(49601) > 一 128 THEN 30 
40 INPUT“BEGINNING ADDREFSS 和 $"”;A 刷 
50 GOSUHR 220:RA 一 S 
60 INPUT CLOSINCG ADDRFSS 和 "AH$ 
70 GONSUB 220:FA--S 
80，BH=INT(BA /256):BL 一 BA 一 BH * 256 
90  EH 一 INTCEA/256):FL 一 EA 一 FEH * 256 
100 POKF 250,.RL:POKF 251,.BH :POKE 8,EL:POKE 
9,EH 
PRINT “HOW MANY COLUMN PERPAGE"”; :1N- 
VERSE: PRINT“DPEF 一 3” : NORMAL: INPUT 
CO4 :CO =VALCCO 和 4 ):IF CO =0 THEN CO== 
3 
PRINT “HOW MANY LINF PFRPAGE";: IN- 


110 


120 


130 


140 
150 
160 
170 


180 


190 


200 


210 


220 


230 


240 
250 


赵 根 林 


VERSE, PRINT“DEF = 60”; ;NORMAL: INPUT 
LI$ ;LI=VALCLI$ ):IF LI=0THEN LI=60 
POKE SA 十 240,2 x* CO;POKE SA 十 250.41 一 18 
*〈CO 一 2):POKE 255,LI:POKE SA 十 82.63-- 
LI 
INPUT “ONE SIDE OR TWO SIDE (17/2)?”;OT 
IF OT 一 1 OR oOT > 之 2 THEN 140 
PR 并 1] :PRINT CHR 书 (15);CHR$ 甩 (27); 8" 
IF OT 王 1 THEN POKE SA 十 153,234;POKE SA 
十 154,234;CALL SA:PR# 0;END 
POKE SA 十 153,176:POKE SA 十 154,215;CALL 
SA 
PR 并 0, PRINT: PRINT, PRINT “TURN BACK 
YOUR PAPER. . ..” 
PRINT “THEN PRESS ANY KEY TO CONT 
INUPF" :GET A$ ;PR 共 1 
POKE SA 十 153.144:CALL SA ,PR 六 0;END 
S--0;N=-LEN (A$):FOR 1-:1TON 
B$=MID9IA 有 .LI1):FOR J 一 0TO 15:IF BY$ 
一 MIP 和 4 CP$ ,11) THSN A 一 4 一 16 
NEXT 1 
S=S+Ax 16` (N 一 D) :NEXT I:RETURN 


下 面 给 出 汇编 语言 程序 (机 器 码 )， 
程序 2 


2000- 
2008- 
2010 
2018- 
2020. 
2028- 
2030- 
2038- 
2040- 
2048- 
2050 

2058- 
2060- 
2068 

2070- 
2078 

2080 


A9 A0 8D 79 06 A9 00 82” 
FC AD5 FA 85 06 AD FB 85 
07 30 72 20 AD FF 82 FE 
A2 00 Ao 09 D5 0OD F0O 0 
90 25 B0 06 A5 08 D5 0C 
90 1lD B5 0OC 85 3A Bo5 0D 
85 3B 84A4 859 0B 20 F2 20 
20 53 F9 85 0A A6 FD 20 
4A F9 20 E1 20 90 D3 8A 
FE0O0 !2 20 8E FD C6 FE DU 
C7 A2 03 20 8E FD CA 10 
FA 人 C IL 20 60 AG FE 8988 
FE A2 00 20 8C F8 20 55 
FQ 9 3A 84 3B (68 FE bD0 
JU 80 An 06 85 3A 8 00 
AD 07 8 记 4 0D AZ 02 
RA 8 0B8 20 5D ?0 85 0A 


( 
<) 


2088- 20 E4 20 90 F3 20 5D 20 
2090- 85 06 84 07 A5 FC E6 FC 
2098- 4A EA EA A5 09 C5 0D FI0 
20A0- 04 90 40 BO 06 A5 08 5C5 
20A8- 0C 90 38 A6 0C A4 0D 20 
20B0- 40 F9 A9 AD 20 ED FD 20 
208B8- ED FD A9 BE 20 ED FD A6 
20C0- 08 A4 09 C4 07 F0O 04 90 
20C8- 1ll1 BO 06 A5 08 C5 06 90 
20D0- .09 A4 07 88 A6 06 F0 01 
20D8- C8 CA 20 40 F9 20 8E FD 
20OE0- 20 8E FD 60 A5 0B AA A5 
20E8- OA 95 0CcC 94 0D E8 E8 E0 
20F0- 06 60 A6 3A A4 3B 20 40 
20F8- FE9 A2 17 86 FD A9 AD 20 
2100- ED FD A2 01 20. 4A FE9 A2 
2108- 00 20 8C F8 48 Bl 3A 20 


2110- DA FD A2 01 20 4A F9 C4 
2118- 2F C8 90 FL A2 03 CO0 014 
2120- 90 F2 68 A8 B9 C0 F9 85 
2128- 2C B9 00 FA 85 2D A9 00 
2130- A0 05 06 2D 26 2C 2A 88 
2138- DO F8 69 BF 20 ED FD CA 
2140- DO EC A9 A0 20 ED FD A4 
2148- 2F A2 06 E0O0 03 F0O IC 06 
2150- 2E 90 OOE BD B3 F9 20 87 
2158- 21 BD B9 F9 F0O 03 20 87 
2160- 21 CA DO E7 60 88 30 E7 
2168- 20 80 21 A5 2E C9 E8 Bl 
2170- 3A 90 F2 20 56 F0 AA E8 
2178- DO 0I1 C8 98 20 80 21 8A 
2180-  C6 FD C6 FD 4C DA FD C6 
2188- FED 4C ED FD 


人 


“ 实用 程序 。 


在 LASER310 中 增加 简易 RENUMBER 功能 


北京 六 十 一 中 郑 嘉 琦 


在 改写 现 有 程序 的 行 号 时 ,LASER310 中 没有 
RENUMBER 命令 ,只 能 一 句 一 句 地 改写 。 有 时 程序 很 
长 , 改 起 来 非常 费事 。 为 此 笔者 编 了 一 个 改写 行 号 的 程 
序 来 帮助 解决 这 一 问题 。 具 体 做 法 介绍 如 下 : 

1. 先 输入 下 面 BASIC 程序 ; 

10  POKE 30862,0:POKE 30863 ,114 

20 FOR I=1To 31 

30 B 一 29183 十 I;READ A 

40 POKE B,A;NEXTI 

50 CLS:,PRINT @129, “YOU CAN LOAD YOUR PROGRAM 

NOW.，” 

60 DATA 33,233,122,94,35,86,235,1,0,0,175,237,74 
70 DATA 200,237,75,33,121,235,35,126,129,119,35， 

126 
380 DATA 136,119,235,195,3,114 
90 END 


2. 运行 程序 。 待 屏幕 上 出 现 “YOU CAN LOAD 
YOUR PROGRAM NOW. ”之 后 ,用 CLOAD 命 今 从 磁 
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带 机 中 调 入 需要 改写 行 号 的 程序 。 

3. 程序 调 入 后 ,键入 A=USR(X)(CR)(X 为 行 号 
值 增 量 ,可 以 是 正 整 数 , 也 可 以 是 负 整 数 ), 屏 幕 上 很 快 
显示 “READY” 提 示 符 。 这 时 待 改 程序 每 一 语句 的 行 号 
值 都 已 增加 了 X, 可 用 LIST 命令 查阅 改 后 的 程序 。 例 
如 键入 A=USR(500)(CR) 那 么 原 有 程序 每 一 语句 的 
行 号 值 都 会 增加 500, 如 果 再 键入 A=: USR (一 500) 
(CR , 原 有 程序 每 一 语句 的 行 号 值 又 可 还 原 。 

上 述 方 法 只 能 改写 每 一 语句 的 行 号 ,不 能 改变 无 
条 件 转向 ,条件 转 向 . 子 程序 调用 等 语句 中 的 转向 行 
号 。 这 些 语 句 中 的 转向 行 号 须 用 通常 方法 逐一 加 上 增 
量 X。 


"此 时 一 个 用 于 改写 行 号 的 机 器 码 程序 已 送 入 内 存 的 
识 分 辨 率 显 示 区 。 只 要 不 断 电 ,不 运行 有 MODE(1) 的 
程序 ,该 机 器 码 程序 将 常 驻 内 存 供 随时 使 用 。 


. 苹果 园地 . 


微机 绘图 软 汉 字 操 作 系 统 


长 沙 有 色 金 属 专科 学 校 任 基 重 


内 容 提要 :本 文 提出 了 设计 一 种 操作 灵活 .占用 内 存 少 的 软件 系统 的 方案 ,使 不 带 汉 卡 的 绘图 仪 能 书 
写 汉 字 , 该 方案 设计 原理 通俗 易 懂 ,使 用 简便 ,兼容 性 强 。 不 失 为 一 种 “图 形 汉化 "的 有 力 工 具 


一 .前 言 

计算 机 绘图 一 般 是 用 一 台 或 多 台 绘 图 仪 。 目 前 , 国 
内 使 用 的 绘图 仪 大 多 不 带 汉字 操作 系统 ,在 对 图 形 进 
行 汉 字 说 明 时 是 极为 不 便 的 .为 此 ,必须 给 绘图 仪 配备 
硬汉 卡 或 软 操 作 系统 .但 这 类 市 售 产品 价格 昂贵 , 且 兼 
容 性 差 ,给 “图 形 汉 化 " 带 来 了 困难 。 

我 们 对 汉字 笔画 进行 分 析 后 ,建立 了 “ 蔷 果 机 绘图 
软 汉 字 操 作 系 统 ”( 以 下 简称 “GCDOS 系统 ”)。 该 系统 
包括 软 汉 字 生 成 及 写字 两 大 部 分 。 软 汉字 所 占 内 存 较 
少 , 且 字形 可 进行 放大 、 缩 小 .旋转 、 错 移 、 加 粗 等 ,非常 
灵活 。 该 系统 不 涉及 硬件 任何 变化 。 其 设计 思想 对 任 
何 微机 系统 都 是 适用 的 。 为 此 ,将 GCDOS 系统 原理 及 
内 容 简 述 如 下 。 

二 、 原 理 概述 

汉字 的 字形 虽然 变化 无 穷 ,但 就 绘图 而 言 , 可 认为 
只 有 一 种 笔 形 ,这 就 是 直线 。 所 有 弯 钩 、 转 折 都 可 看 成 
是 由 小 段 直线 构成 。 众 所 周知 ,已 知 起 止 点 坐标 ,可 傅 
令 绘图 仪 画 直 线 。 可 以 设想 ,只 要 把 每 一 笔 (直线 ) 的 四 
个 坐标 值 ( 每 点 两 个 ) 赋 给 四 个 下 标 变 量 , 启 动 绘图 仪 
后 ,将 坐标 值 按 次 序 送 给 它 ,就 可 将 字 写 出 来 。 这 种 方 
案 简单 ,但 有 明显 的 弱点 。 首 先 ,坐标 值 占用 内 存 太 多 。 
以 一 个 10 画 的 字 为 例 , 假 设 全 部 由 直线 构成 , 那 末 需 
用 40 个 下 标 变量 表示 。 即 使 用 最 节省 内 存 的 整形 数组 
(每 个 元 素 占 用 2 个 字 节 ) ,也 要 占用 80 个 字 节 。 况 且 
大 多 数 汉字 都 不 是 简单 直线 构成 ,分 解 成 直线 以 后 ,就 
会 占用 更 多 的 内 存 。 其 次 ,这 种 用 变量 直线 存 贮 坐 标 值 
的 方法 ,在 存盘 和 读 盘 时 相当 费时 ,影响 操作 速度 。 

我 们 将 汉字 笔画 分 为 三 类 :直线 .折线 和 口 形 线 。 
直线 用 两 个 坐标 点 表示 , 口 形 线 也 只 用 两 个 点 (对 角 线 
的 两 端点 ) 表 示 ,折线 则 只 要 表示 两 端点 和 中 间 的 折 点 
即 可 .。 这 样 就 比 上 述 方案 节省 了 一 些 坐 标点 。 其 次 ,我 
们 用 15X 16( 宽 X 高 ) 点 阵 表 示 一 个 汉字 , 即 横 坐 标 最 
大 值 为 14($0E), 纵 坐标 最 大 值 为 15($0OF)。 因 此 ， 
可 将 一 个 点 的 两 个 坐标 链接 成 一 个 字 节 ,并 规定 横 坐 
标 占 高 4 位, 纵 坐 标 占 低 4 人 位， 这样 ,坐标 值 组 成 的 字 
节 其 最 大 值 为 $EF ,最 小 值 为 $00。 如 此 处 理 ,至 少 可 
比 前 述 方案 节省 3/4 内 存 空间 。 而 且 , 这 种 代码 可 用 了 B 


型 文件 存盘 和 读 盘 , 比 T 型 文件 要 快 得 多 。 

为 了 在 译 码 时 能 让 机 器 识别 哪些 是 直线 .折线 和 
口 形 线 , 还 必须 在 坐标 值 前 加 以 标志 。 注 意 到 坐标 值 字 
节 的 高 4 位 不 可 能 为 “F”, 故 以 高 字 节 为 “F” 者 为 标 
志 。 例如 $Fl 表示 紧 接 其 后 的 两 字 节 为 口 形 线 的 对 角 
点 坐标 ; $Fn(Cn 为 2 一 E) 表 示 紧 接 其 后 的 (n 十 1) 个 字 
节 为 折线 的 两 端点 及 折 点 的 坐标 。 这 样 处 理 , 一 个 弯曲 
笔画 最 多 可 分 解 为 12 个 折 点 构成 的 折线 ,实际 上 已 经 
足够 。 直 线 端点 坐标 不 加 标志 ,一 个 汉字 代码 结尾 以 
$FF 表示 ,以 保证 -一 个 存 贮 块 中 可 以 容纳 多 个 汉字 ， 
并 按 存 贮 先后 位 置 编写 字号 ,以 便 使 用 时 调用 。 

按 这 种 方案 所 设计 的 软 汉字 代码 ,所 占 存 贮 空间 
与 汉字 笔画 多 少 和 复杂 程度 有 关 。 最 少 的 (如 “一 ” 字 ) 
占用 3 个 字 节 。 通 常 汉 字 中 最 多 的 不 超过 40 个 字 节 。 
例如 较 复 杂 的 “ 薄 " 字 占用 37 个 字 节 。 据 统计 ,每 个 汉 
字 平 均 占 用 22 个 字 节 。 

下 面 我 们 会 看 到 ,以 15X 16 点 阵 表 示 汉 字 与 CC- 
DOS 的 点 阵 相 同 , 采 取 机 器 编码 时 可 带 来 极 大 方便 。 
如 有 特殊 需要 扩大 点 阵 , 可 采取 “拼接 ”的 方法 ,例如 用 
四 个 15X 16 的 部 分 拼接 成 30X 32 的 点 阵 结构 。 或 者 
改变 代码 形式 以 5 位 二 进 制 数 表 示 一 个 坐标 ,只 是 占 
用 内 存 要 增加 一 些 。 

$0123456789ABCDEY$ 


OH XXXXXXXAXXEAHA + 0 


其 


其 
其 
其 
其 


本 可 事 本 求 求 素 2 


本 因 p 求 水 来 来 率 束 


多 本 本 可 可 求 来 站 


褒 虽 一 昌 册 四 中 oa 届 站 口 世 可 


0123456789ABCDE 


愉 吕 一 和 内 人 四 用 opm 台 怠 胃 本 


所 


图 1 为 “可 " 字 的 编码 示例 “可 " 字 巾 一 条 直线 (两 
端点 位 置 以 “0" 表 示 , 其 坐标 值 为 $0E,$EE) 一 条 口 
形 线 (两 对 角 点 以 “A? 表 示 , 其 坐标 为 $35,$8B) ,一 
条 折线 (其 端点 和 折 点 以 “F.G HI 表示 ,坐标 分 别 为 
$BS, $B1,$A0,$81) 组 成 。 所 以 “可 " 字 全 部 代码 
为 ;0E EE F3 BE Bl1 A0 81 Fl1 35 8B FF , 共 占 用 11 个 字 
节 。 原 点 选择 在 左下 角 是 为 了 与 绘图 仪 坐 标 系统 一 致 ， 
解 色 时 计算 方便 。 

按照 上 述 规定 进行 编码 。 在 一 张 标 有 十 六 进 制 数 
的 15X 16 的 方 格 坐标 纸 上 写 上 汉字 , 按 笔画 所 处 的 位 
置 依次 写 上 坐标 代码 。 代 码 在 存 贮 区 的 位 置 对 字形 没 


有 影响 ,只 影响 书写 的 顺序 .但 一 种 线 型 的 坐标 代码 必 


TO 
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须 连续 存放 ,并 按 规定 加 上 栋 志 。 

附带 指出 ,汉字 在 书写 时 可 能 要 进行 放大 ,为 此 ， 
两 笔 的 结合 部 必须 连续 ,不 能 留 有 间 孙 .例如 ”上 "学 的 
横 与 竖 钩 必须 紧密 相连 , 印 坚 钩 ( 扩 线 ) 的 起 点 纵 坐 标 
必须 与 横 ( 直 线 ) 的 纵 坐 标 相 等 ,人 骆 则 ,在 放大 时 就 会 在 
两 笔 的 结合 部 出 现 空 队 。 例 如 ,图 1 的 民 点 即 处 在 0-0 
线 的 水 平 线 上 。 

由 上 述 可 知 , 当 一 个 汉字 的 代码 确定 以 后 ,在 书写 
时 ,可 按 对 图 形 进行 放大 、 旋 转 、 错 移 的 方法 对 字形 进 
行 灵 活 处 理 。 但 不 能 改变 字体 。 例 如 由 王 得 子 改 变 为 
仿宋 体 、 瑶 碑 等 。( 末 完 待 续 ) 


用 汉字 提示 错误 信息 


华 油 局 机 关中 学 牛 保 平 


APPLE 一 在 无 论 使 用 汉 卡 或 是 软 汉 字 系统 ,所 给 
出 的 错误 信息 都 是 英文 的 。 一 些 初 学 BASIC 语言 或 不 
慌 英 语 的 人 要 想 了 解 发 生 了 什么 错误 比较 困难 

我 在 实际 工作 中 编写 了 -- 个 小 程序 ,使 所 有 的 错 
误 信 息 全 部 由 中 文 显 示 , 内 容 包括 :发 生 错误 的 行 号 、 
代码 及 错误 的 种 类 .即便 于 微机 的 学 习 , 又 便于 程序 的 
调试 。 

程序 的 使 用 方法 :开机 后 先 引 导 DOS , 而 后 调 入 此 
程序 ,再 键入 用 户 程 序 , 使 用 者 的 行 号 要 在 1 至 6999 
之 间 , 这 个 范围 可 根据 自己 的 需要 进行 调整 .但 在 ON- 
ERR GOTO XXXX 语 句 之 前 不 能 有 其 它 语句 , 非 执 
行 语 句 除外 。 在 你 自己 编写 的 程序 中 不 能 再 有 ONERR 
GOTOX XXX 语句 。 否 则 0 ONERR GOTO 7000 失去 
作用 。 

程序 中 的 &. 为 清 屏 指 令 ,根据 自己 的 系统 替换 相 
应 的 清 屏幕 指令 即 可 。 

程序 恕 下 : 
0 _ ONERR GOTLO 7000 
1U0 OK 1=-】TO 7 
20 PRINT 1 
30 NEXT 
410 GOTO 50 
6999 “END 
7000 DIMC(C33) ,KK (33) 
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7010 CALL 一 198:POKE 37.5:K(1) -= PEEK(219) * 256 十 
PEEK (218):K(2) 王 PEEK (222) 

7020 “FOR 1=-1 TO 341;READ (CT :NEXT 1 

7030 FOR J 一 1 TO 31:READK$(J):NEXTJ 

7040 WwW 一 0 

7050 WwWw+1l:IFCCW)-K(2) THEN 7080 

7060 GOTO 7050 

7080 &.:POKE 37, 10:POKE 36,.0:PRINT"“ 错 兴 行 人 外”;K 
(1) :7 人 人 代 人 ”: KGC2) ”KJ$(CW) 

7100 END 

7200 DATA 0.1,2.4.5.,6.7,8.9,10,11,.12.13,.11,15.16， 
22. 42,53,69,.77.90.107, 120, 133. 163. 176，191， 
224,254,255 

7210 DATA “NEXT 与 FOR 不 对 应 “… 匹 此 语 和 "< 污 上 围 错 
说“, "和 伐 片 封 由 ”2T 己 完 "无 此 文件 ” 

7230 DATA" 磁 级 片 不 对 ”", "LO 错误 "，" 伐 盘 已 满 ”," 文 件 
有 锁 ”,”DOS 诸 法 错 议 "无 缓冲 区 ” 

7240 DARA“ 文 件 炎 型 不 对 ”“ 各 太太 大 "“ 非 育 接 谷 
令 ”,?” 诸 凑 错 误 ”,* RETURN 与 GOSUB 不 对 尺 "” 

7250 DATA ”数据 不 足 ", "不 正确 的 币 ",” 滋 出 "内 存 不 
够 ","GOTO 错 训 ”下体 不 对 ”， "DIM 重复 ” 

7260 DATA “用 二 除 " 类 剧 不 本 ”有 大 慌 " 光 胡 达 式 复 

林 " "无 定义 的 所 数 "INPUT 错误 "人 忆 按 CTRLC 
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7270 RESTORE 
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屏幕 文字 翻滚 程序 


浙江 天 台中 学 陈 鸿 伟 


本 人 在 编制 一 些 教学 软件 过 程 中 ,为 了 加 强 屏幕 640- 28 28 28 28 28 28 28 28 
效果 ,使 软件 中 的 文字 说 明 能 象 影 划 上 的 演员 表 一 样 6148- 。 A8 A8 A8 A8 A8 A8 A8 A8 
由 下 往 上 翻滚 , 编 了 一段 机 器 语言 程序 ( 见 程序 2)。 0 


ee - 6158- A8 A8 A8 A8 A8 A8 A8 A8 
本 程序 位 于 $6000 一 $6056, 采 用 了 查 表 法 。 可 用 
汪汪 6160- 28 28 28 28 28 28 28 28 
程序 B 8 6168- A8 A8 A8 A8 A8 A8 A8 A8 
再 6100,，$FC, $FD 存放 $61C0。 当 $E6 中 为 $20 6l70 28 28 28 28 28 28 28 28 
时 , 造 高 分 状 率 图 形 区 第 -一 页 表 ; $E6 中 为 并 $40 时 6178- A8 A8'A8 A8 A8 A8 A8 A8 
造 第 二 页 表 。 6180- 50 50 50 50 50 50 50 50 


一 些 中 文系 统 如 STC 系统 .ZSD 系统 等 是 以 高 分 “6188-” ” D0 D0 D0 D0 D0 D0 D0 D0 
辩 图 形 第 -- 区 作为 显示 区 ,因此 在 调用 本 程序 前 ,应 先 6l9% 50 50 50 50 50 50 50 50 
把 第 一 页 的 内 容 , 移 到 第 二 页 ,然后 再 调用 本 程序 . 程 2 DO DO 


运行 时 ,屏幕 开始 是 一 片 空 自 , 然 后 从 最 下 面 一 行 开 SA 到 50 0 20 5 50 80 60 
始 逐 行 翻滚 出 文字 。 上 滚 的 速度 适合 于 阅读 的 速度 OA 


修改 本 程 中 的 一 些 数据 ,可 实现 部 分 屏幕 向 上 翻 61B8. pD0 p0 pD0 po po po pD0 pn0 
滚 . 部 分 滚动 的 好 处 是 ,在 中 文系 统 下 运行 图 文 并 茂 的 .6lc0- 20 24 28 2C 30 34 38 3c 
程序 时 ,可 把 屏幕 划分 成 二 区 ,一 部 分 用 于 文字 说 明 的 6lc8- 20 24 28 2C 30 34 38 3C 
翻滚 , 一 部 分 用 于 所 绘图 形 ,可 实现 文字 动 而 图 不 动 ， 61D0- 21 25 29 2D 31 35 39 3D 


便于 文字 对 图 形 的 说 明 。 61D8- 21 25 29 2D 31 35 39 3D 
程序 1 61E0- 22 26 2A 2E 32 36 3A 3E 
0300 --- Ag 00 LDA #$00 61E8- 22 26 2A2E 32 36 3A 3E 
0302- A2 00 LDX #$00 61F0- 23 27 2B 2PF 33 37 3B 3F 
03014- A0 00 LDY 村 $00 61F8- 23 27 28 2 33 37 3B 3F 
0306 20 II FE4 JSR $F411 6200- 20 24 28 2cC 30 34 38 3C 
0309 . AU 00 LDY #$00 6208- 20 24 28 2C 30 34 38 3C 
030B- A5 26 LDA $ 26 6210- 21 25 29 2D 31 35 39 3D 
030D- 91 FA STA ($FA),Y 6218- 21 25 29 2D 3l1 35 39 3D 
030F- A5 27 LDA  $27 6220- 22 26 2A 2E 32 36 3A 3E 
0311 - 91 FEC STA ( 叫 FC),Y 6228- 22 26 2A2E 32 36 3A 3E 
0313 EE 0A 03 INC $0301 6230- 23 27 2 2F 33 37 3B 3F 
0316. EE OA 03 INC $030A 6238- 23 27 2B 2F 33 37 3B 3F 
0319- C0 BF CPY # $BF 6240- 20 24 28 2C 30 34 38 3C 
031B- D0 E3 BNE $0300 6248- 20 24 28 2C 30 34 38 3C 
031D: 60 RTS 6250- 21 25 29 2D 31 35 39 3D 
6258- 21 25 29 2D 3] 35 39 3D 
地 址 表 6260- 22 26 2A 2E 32 36 3A 3E 
6100- 00 00 00 00 00 00 00 00 6268- 22 26 2A 2E 32 36 3A 3E 
6108 80 80 80 80 80 80 80 80 6270- 23 27 2B8 2F 33 37 3B 3F 
6110- 00 00 00 00 00 00 00 00 6278- 23 27 2B 2F 33 37 38 3F 
6118- 80 80 80 80 80 80 80 80 
6120. 00 00 00 00 00 00 00. 00 称许 2 
6128. 80 80 80 80 80 80 80 80 6000 一 AD 50 C0  LDA 书 C050 
6130- 00 00 00 00 00 00 00 00 6003- AD 57 C0 ” LDA $C057 


6138 80 8U 0 80 80 80 80 80 6006- AD 52 CI0 LUDA 下 (052 


6009- A9 DI0 LDA 朱 $$D0 
600B- 85 08 STA $08 
600D- A9 3F LDA ##$3F 
600F- 85 09 STA $09 
6011- A9 00 LDA 提 $00 
6013- 85 FA STA $FA 
60i5- A6 FA LDX $FA 
6017- BD 00 61 LDA $6100,X 
601A- 85 06 STA $06 
601C- BD 80 62 ” LDA $6280 ,X 
601F- 85 07 STA $07 
6021- A0 27 LDY ##$27 
6023- B1 06 LDA ($06),Y 
6025- 91 08 STA ($08) ,Y 
6027- 88 DEY 

6028- 10  F9 BPL $6023 
602A- E6 FA INC $EA 
602C- A2 00 LDX 林 $00 
602E- BD 00 61 LDA $6100,X 


浮动 机 背 语 言 程 序 


】 
南京 六 合 一 


我 们 在 使 用 机 器 语言 程序 的 时 候 , 如 果 内 存 中 需 
要 存放 多 个 程序 ,就 有 可 能 造成 内 存 冲突 ,这 就 需要 某 
些 机 器 语言 程序 转移 到 另 一 块 内 存 去 。 对 于 在 程序 中 
全 部 使 用 相对 转移 来 实现 跳 转 的 机 器 语言 程序 可 以 用 
监控 中 的 “<M” 指 令 去 搬 动 ,但 对 于 用 绝对 地 址 跳 转 的 
指令 ,如 果 用 “M” 指 令 程序 将 不 能 正确 运行 。 

下 面 的 机 器 语言 程序 ,可 以 自动 对 需 搬 动 的 程序 
进行 变 址 操作 并 使 其 能 正常 运行 。 先 输入 下 列 程序 ,再 
键入 3F8 : 4C 00 80 y.。 然后 ,就 可 以 在 监控 下 用 Al1<< 
A2. A3 |CTRL|--[Y| 、 把 从 A2 到 A3 的 机 器 语言 程序 
搬 到 从 A1 开始 的 内 存 中 去 。 

本 程序 由 于 全 部 使 用 相对 转移 指令 ,因此 程序 地 
址 可 浮动 ,如 要 浮动 可 先 用 “M” 指 令 搬 运 , 再 在 $3F9、 
$ 3FA 中 分 别 置 入 起 始 地 址 低位 、 高 位 即 可 。 


8000- 20 75 FE 20 2C FE A2 00 
8008- 20 8C F8 A5 2F C9 02  D0 
8010- 45 A0 0I 38 Bl 3A E5 40 
8018- C8 Bl 3A E5 41 90 37 Al0 
8020- 0 A5 3E FI 3A A5 3F  C8 
8028- FI 3A 90 2A 38 A0 0l1  A5 
8030- 40 E5 44 85 FE A5 41  E5? 
8038- 45 85 FF 38 A5 3A Eo FE 
8040- 85 000 A5 3B E5I FF 85 0 

8048- Bl 3A 38 ED FE 91 00  C8 
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6031- 85 FE STA 
6033- BD C0 6!1 ” LDA 
6036- 85 FF STA 
6038- E8 INX 
6039- BD 00 61  LDA 
603C- 85  FC STA 
603E- BD C0 61  LDA 
6041- 85 FD STA 
6043- A0 27 LDY 
6045- B1 ERFC LDA 
6047- 91 FE STA 
6049- 88 DEY 
604A- 10 ”F9 BPL 
604C- E0 C0 CPX 
604E- D0 DE BNE 
6050- A5 FA LDA 
6052- C5 C0 CMP 
6054- D0 BF BNE 
6056- 60 RTS 
张 亚 株 
8050- Bl 3A E5 FF 
8058- FEF9 85 3A 84 
8060- E9 3E A5 3B 
8068- ”60 
例 : 
6000- AD 00 20 
6003- 20 1 60 
6006- EE 0l1 60 
6009- D0 03 
600B- EE 02 60 
600E- 4C 00 60 
6011- AD 00  C0 
6014- 10 ”FB 
6016- 20  F0  FD 
6019- 60 
# 2500(6000. 6019 CTRL-Y 
2500- AD 00 20 
2503- 20 1l 29 
2506- EE 0l 295 
2509- D0 03 
250B- EE 02 25 
250E- 4C 00 25 
2511- AD 00  C0 
2514- 10 ” FB 
2516- 20 FI  FD 
2519- 60 


91 
3B 
E9 


LDA 
JSR 
INC 


INC 
JMP 
LDA 
BPL 
JSR 
RTs 
Y 
LDA 
JSR 
INC 
BNE 
INC 
JMP 
LDA 
BPL 
JSR 


$ FE 
$61C0 ,X 
$ FF 


$6100, 叉 
$ FC 
$61C0 ,X 
$FD 

朱 $27 
($FC),Y 
($FPE),Y 


$6045 
#$C0 
$602E 
$ FA 
$C0 
$6015 


00 
18 。A5 
3F 


20 


DI0 


$ 2000 
$6011 
$6001 
$ 600E 
书 6002 
$6000 
$C000 
下 6011 
趾 FDF0 


$ 2000 
$ 2511 
下 2501 
$ 250E 
$ 2502 
$2500 
$Cc000 
$2511 
$FDF0 
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. 革 果 园地 。 
高 分 辨 图 形 旋转 90" 硬 拷贝 


西安 高 级 中 学 陆 容 元 


6070- 20 25 60 20 IC 60 68  A8 


更 正 :1989 年 《4 革 果园 》 弟 六 期 P17 作者 “和 孙 占 林 " 应 为 " 孙 占 木 ", 日 录 也 间 。 特 表 款 高 。 


用 常规 方法 便 指 由 稿 分辩 鲜 形 , 只 能 横 阿 拷 内 ， 6078- 88 D0 E7 B9 00 90 85 
在 80 列 打印 机 上 横 问 最 多 只 能 拷 几 两 幅 图 .这 对 一 6080 B9 00 9 85 .0D 8A A8 
般 用 户 是 足够 了 ,但 是 如 果 要 打印 较 长 的 组 合 疼 彤 ”6088- 25 60 20 IC 60 A9 0A 
(如 连环 画 . 泄 男 等) ,就 显得 不 方便 。 然 而 ,如 果 将 网 6090- IC 60 E8 E0 28 D0 B5 
形 旋转 90 后 得 打 印 , 并 将 这 样 打 印 出 来 的 一 幅 幅 6098- ”60 
图 形 自然 地 连接 起 来 ,就 能 形成 一 幅 长 条 画 。 为 此 ， 程序 二 
本 人 编 了 两 段 汇 编 语言 程序 ,成 功 地 解决 了 和 高 分 辩 6000 ~ CC 7c 60 A0 00 9g8 48 
es se 页 鲁 形 顺 时 针 旋 转 we 
- -一 外 5 -一 | 由 开 2 
1 .程序 二 是 不 仅 将 图 形 旋转 90" ,而 且 纵 横 2 
册 6018- CO0 D0 FEA 60 2C CI Ci 
回 均 放 大 一 倍 。 这 两 个 子 程序 用 户 可 根据 情况 任 总 、 
选用 ,调用 前 ,应 先 把 待 打印 的 图 形 调 入 高 分 辩 第 -2 5 8 5 0 AO 0 
页 ,并 打开 打印 机 电源 开关 ,然后 在 监控 状态 下 键入 2 人 
6000G 即 可 自动 打印 6030- FEF6 60 B9 00 9%0 85 0 
打印 长 条 形 的 组 合 夯 时 ,可 先 把 收 个 丽 面 进行 
分 割 创 作 . 并 按 顺 译 分 别 存放 企 若 干 个 图 形 文 件 中 ， 0 A8 8 
然后 依次 把 这 些 图 形 文件 调 入 高 分 辩 第 一 页 打印 即 “8048 00 866 FA 2 8 DO FA 
HJ 。 6050- 25 60 26 008 2A 85 FA 
程序 一 人 用 程序 二 均 在 APPLFE-8 机 上 上 通过 ,4 寻 程 6058- FFB A5 08 4A 9I 06 A5 
厅 -一 略 加 修改 ,还 可 实现 仅 纵 癌 放大 一 倍 或 横 辐 族 6060- 20 25 60 A5 08 4A 60 
大 -- 倍 ,使 找 贝 出 来 的 网 束 更 富 于 趣味 性 ， 6068- Il]B 20 IC 60 Ag 4B 20 
程序 一 : 6070- 60 A4 80 20 IC 60 A9 
6000- 4C 31 60 A0 00) 59%8 8 20 6078- 20 IC 60 60 Ag .00 86 
0008- II F4 68 A8 AI 26 时 00 6080- A9 92 85 0%7 Ag 20 85 
6010- 90 AD 27 99 00 9 C3 (5C0 6088- 20 03 60 A2 00 A0 BF 
6018- C0 D0I EA 60 2C Cl C1| 30 “6090- IB 20 IC 60 Al 4 2() 
6020- FB 8D 90 CU 60 Bl UC 45 6098- 60 Ad 07 20 IC 60 20 
6028。 FA AI 0 A9 00 66 FA 2A 60A0 60 gg 人 0 3 60 20 
60230 4 bD FA 60 A9 20 8 E6 60A8- 60 20 IC 60 68 A8 88 
6034- 20 03 6 A9 IlIB 20 IC 60 60B0- FO 20 332 … 60 20 IC ”60 
6040- A9 4 20 IC 60 A9 07 20 60B8- IC 60 Ad9 0OA 20 IC 60 
6048. IC 60 A2 00 A0 BF A9 1IB 60C0- 67 60 A0 BF bl 06 20 
6050- 20 IC 60 A9 4 20 IC 60 60cs- 60 20 IC 60 8 DO  EF5 
6058- A9 CO 20 IC 60 A9 00 20 60D0- 06 20 IC 60 20 IC 60 
6060- IC 60 98 48 8B89 00 .90 85 60D8- 0A 20 IC 60 E8 F0 28 
6068- 0C B9 00 9 85 0OD 8A A8 60E0- 03 人 CC 8D 6 60 00 
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APPLE IEIGET 语句 的 特点 


曲 辣 师 大 物理 条 


GET 语句 的 格式 是 : 行 号 GET 变量 名 。 它 有 如 
下 特点 : 

对 GET 回答 时 ,输入 的 字符 不 被 显示 ,GET 语 
句 只 接收 一 个 字符 , 且 收 到 一 个 字符 后 不 用 回 车 就 
自动 执行 后 继 语句 。GET 后 跟 串 型 变量 时 ,所 有 输 
入 字符 都 是 正确 的 ,值得 一 提 的 是 连 CTRL-cC 都 失 
去 了 中 断 作 用 ,只 有 CTRL-RESET 还 具有 复位 作 
用 。GET 后 跟 实 型 变量 与 整 型 变量 情况 一 样 , 除 可 
输入 0 至 9 数字 外 ,加 号 、 减 号 .E. 句 号 .空格 、 
CTRL-@ 同 输入 “ 零 " 一 样 .冒号 及 逗号 产生 ?EXTRA 
IGNORED 信息 ,并 以 “ 零 ”" 作 为 输入 值 , 除 此 之 外 ,其 
它 输入 字符 都 被 认为 是 错误 的 。 

在 实际 中 我 们 发 现 GET 语句 还 有 如 下 三 个 新 
特点 : 

-~ 用 ONERR GOTO 同 RESUME 语句 配合 组 
成 子 程序 来 处 理 对 GET 语句 的 回答 错误 时 ,如 果 第 
一 次 是 错误 回答 而 第 二 次 是 正确 回答 , 则 程序 仍 可 
执行 后 继 语 句 ; 若 连续 两 次 错误 回答 , 子 程序 便 回 不 
到 主 程序 ,整个 系统 被 挂 起 来 ,只 有 按 CTRL-RESET 
键 才能 复位 。 者 将 RESUME 用 GOTO 语句 来 代替， 
则 不 论 错 误 回 答 多 少 次 ,系统 都 能 正常 工作 ,等 待 正 
确 的 回答 。 但 是 , 若 系统 是 在 跟踪 方式 下 工作 , 则 当 
错误 回答 到 第 60 次 时 ,系统 便 跳 到 监控 状态 。 

二 .在 较 复 好 的 程序 中 ,人 们 往往 习惯 于 由 
REM 和 INPUT 语句 给 出 提示 信息 ,但 GET 语句 中 
不 能 加 提示 信息 ,下 列 句子 将 被 认为 是 有 语法 错误 
的 ， 

50 GET"PRESS' RETURN' KEY TO BEGIN" ;A 和 
要 用 GET 语句 给 出 提示 信息 ,只 能 将 提示 信息 在 
GET 语言 之 前 由 PRINT 给 出 。 

三 .由 于 GET 后 跟 整 型 变量 和 实 型 变量 时 ,对 
于 绝 大 多 数 输 入 字符 都 被 认为 是 错误 的 ,有 人 建议 
GET 后 总 是 用 串 型 变量 , 当 需 要 数字 时 用 VAL(X 
$ ) 函 数 把 数字 字符 串 转化 成 数值 数字 ,然而 这 里 有 
一 个 重要 问题 就 是 若 未 引入 Dos, 则 第 一 次 由 GET 
语句 但 到 的 1 至 9 范围 内 的 任意 一 个 数字 字符 串 经 
VALCGX $ ?函数 转 化 时 出 现 变 值 , 例 如 : 

10 GET A 和 $ 
20 PRINT ”"B 一 ";VAL(AV$ ) 
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30 END 
执行 该 程序 时 ,由 GET 语句 第 一 次 得 到 的 1 一 一 9 
各 数字 字符 串 经 VALCX $ ) 苯 数 转 化 后 的 结果 是 : 
X$ 王 1,VALIX$)=1.11111111E 二 16， 
X$=2,VALCX$)=2.22222222E 二 16， 
X$ 王 3,VALCX$4)=3.33333333E 二 16， 
X$ 王 4,VALCX$)==4.44444444E 十 16， 
X$ 一 5,VALCIX$ ) 一 5.55555556E 二 16， 
X$ =6,VALCX$)=6.66666667E 二 16， 
X$=7,VALCIX$4)=7.77777778E 二 16， 
X$ 王 8,VALCIX$ ) 王 8.88888889E 二 16， 
X$ 王 9,VALCXV$ ) 王 1E 十 17 
这 样 , 对 无 磁盘 驱动 器 的 机 器 或 无 DOS 而 运行 有 
GET 语句 的 一 些 程 序 时常 遇 到 意外 的 问题 ,难以 查 
出 毛病 , 若 用 了 出 错 处 理子 程序 更 是 如 此 .下 面 是 采 
用 GET 语句 和 ON。。。 GOTO...。 (开关 ) 语 名 ,实现 
对 某 一 个 选择 的 控制 的 情况 。 
100 PRINT ”WHICH DO YOU WANT? 1/2/3/4/5/ 
67 
110 GET Ay$ 
120 B=VALCA 和 $ ) 
130 ON B GOTO 1000, 2000, 3000, 4000,，5000， 
6000 

初 看 起 来 此 程序 没有 问题 ,但 若 未 引入 DOS, 由 
上 面 所 述 的 变 值 情 况 ,120 句 中 的 B 值 和 远 超过 了 
130 句 中 开关 语句 中 规定 的 B 值 , 故 程序 在 130 名 
中 断 , 并 出 现 ? ILLEGAL QUANTITY ERROR 信息 ， 
初次 遇 到 此 问题 ,不知 为 何 超 界 ,也许 怀疑 程序 有 其 
它 问题 。 

另外 ,还 须 指 出 , 当 GET 后 跟 整 型 或 实 型 变量 
时 ,未 引入 DOS 下 第 一 次 由 GET 语句 得 到 1 至 9 范 
围 内 的 数字 经 STR $ (X) 化 成 字符 串 , 再 经 VAL(X 
$ ) 转 化 时 仍 出 现 上 述 变 值 问题 。 

解决 此 变 值 问题 ,可 设置 一 个 变量 代 换 语句 ,如 
上 例 中 在 GETA$ 之 后 加 -- 句 C$=A$ 同 时 120 
号 语句 中 改 为 B=VAL(CC$ ) 程 序 便 可 顺利 运行 。 

由 于 第 二 次 及 以 后 由 GET 语句 得 到 的 数字 字 
符 串 VAL(X$ ) 转 化 时 不 再 变 值 , 故 还 可 利用 其 它 
方法 解 此 变 值 问题 ,在 此 不 再 详 述 。 


“ 高 级 语言 介绍 。 


独 具 魅 力 的 第 四 代 高 级 语言 FORTH 


北京 记者 站 三 旭光 

FORTH 语言 是 1969 年 由 美国 的 Charles H. - 
Moore 专家 发 明 的 - -种 新 型 的 高 级 语言 。 在 目前 众 
多 的 计算 机 语言 中 , 它 以 风格 新 结 , 结 构 精 巧 ,简捷 
灵活 ,扩充 方便 ,编译 快速 ,使 用 简单 以 及 运行 速度 
快 ,内 存 空 间 省 ,开发 时 间 短 等 特点 显示 出 强大 的 生 
命 力 。 它 是 一 种 高 级 语言 ,也 是 一 套 软 件 开 发 工具 ， 
一 种 操作 系统 或 一 种 面向 问题 的 元 语言 。 它 简单 的 
语法 格式 ,天然 的 模块 结构 、 极 大 的 灵活 性 以 及 会 话 
式 编 译 与 执行 为 用 户 提供 了 一 个 强 有 力 的 软件 开发 
环境 .利用 它 , 用 户 可 十 分 容易 地 实现 日 己 的 任何 程 
序 设计 思想 .意图 ,包括 数据 类 型 的 扩充 ,系统 本 身 
的 改进 与 生成 ,任何 硬件 接口 的 直接 通信 等 等 。 
FORTH 标志 着 第 四 代 计 算 机 语言 的 产生 , 它 代 表 着 
一 场面 铝 用户 和 面向 自然 语言 的 革命 。 有 人 预言 :如 
果 说 世界 上 将 出 -一 种 最 终 的 计算 机 语言 的 证 ,那么 
这 种 语 训 炎 似 于 FORTH 的 地 方 一 定 会 比 燃 似 共 它 
锅 级 诸 计 的 地 方 多 得 多 。 

FORTH :与 其 它 高 级 语 寺 有 着 很 大 的 不 同 , 它 的 
独特 性 有 以 下 几 点 : 

一 .独立 的 完整 的 软件 

FORTH 系统 一 旦 生成 后 ,不 必 进行 任 何 界面 的 
转换 ,也 就 是 说 只 在 FORTH 系统 这 一 界面 上 就 可 
以 进行 从 编辑 .编译 到 运行 的 各 个 工作 。 这 是 因为 
FORTH 系统 包括 了 操作 系统 的 常 驻 模块 的 全 部 或 
主要 功能 .并 且 有 上 自己 的 文本 编辑 将. 更 有 独到 之 处 
的 是 FORTH 汇编 诸 言 编 幸 子 系统 ,可 以 人 丰 FORTH 
系统 中 直接 编 详 运行 汇编 程序 。 显 然 ,仅仅 FORTH 
本 身 就 已 形成 了 一 个 狸 完 鉴 的 软件 环境 。 这 样 就 
大 大 简化 了 程序 的 编辑 .编译 和 执行 过 程 , 提 高 了 速 
度 和 效率 。 问 时 由 于 不 必 进 行 男 面 的 转换 ,使 初学 者 
易于 学 握 。 

二 .完全 结构 化 的 语言 

FORTH 系统 在 软件 的 结构 化 方面 占有 明显 的 
优势 。 首先 FORTH 系统 本 封 就 术 用 了 完全 结构 化 
和 关系 简明 的 词典 结构 。 词 典 中 的 每 个 单词 具有 完 
全 相同 的 构造 . 这 些 单词 中 的 核心 单词 好 象 是 系统 
提供 给 用 户 有 “基本 标准 句 件 ”。 同 时 ,FORTH 系统 
还 从 根本 上 避免 了 GOTO 类 的 非 结 构成 份 。 采 用 
FORTH 系统 ,操作 者 本 身 可 以 用 结构 化 生产 手段 将 


范 连 胜 曾 京 ” 严 北 黄 
“基本 标准 器 件 " 逐 级 地 制造 出 日 己 所 需要 的 产品 。 
这 样 生产 出 来 的 产品 与 操作 者 的 操作 水 平和 思维 方 
法 的 关系 较 小 .用 FORTH 诸 言 设 计生 产 软 件 可 以 
完全 向 物质 产品 的 生产 过 程 一 样 , 进 行 “ 自 顶 向 下 ” 
的 设计 和 “和 白 下 而 上 "的 生成 。 完 全 结构 化 的 软件 设 
计 方 法 将 使 软件 生产 进入 软件 高 度 工 程 化 阶段 。 这 
就 使 得 软件 技术 真正 地 成 为 -本 科学 ,而 不 再 香 过 
去 仅仅 被 当 作 -种 技巧 。 

三 .具有 自 扩展 能 力 的 一 种 语言 

FORTH 语言 的 新 纪 的 设计 思想 ,使 FORTH 的 
结构 和 功能 与 人 脑 知识 结构 比较 近似 。 系 统 首先 提 
供 足 够 数 基 的 基本 单词 ,这 好 象 一 个 人 具有 上 了 一定 
的 基本 知识 ,在 这 些 基本 单词 的 基础 上 ,系统 允许 操 
作者 按 某 - -新 功能 的 而 要 ,对 已 有 基本 单词 进行 特 
定 组 合 ,构造 成 一 个 县 有 新 功能 的 单词 ,他 入 亲 典 ， 
这 样 扩展 了 基本 单间 .这 与 人 脑 在 已 有 知识 的 基 需 
上 ,积累 新 知识 的 过 程 很 相似 。 

FORTH 系统 包括 了 结构 化 的 FORTH 汇编 .所 
以 单词 的 扩展 (积累 ) 偿 可 以 用 FEORTH 汇编 百 接 产 
生 由 机 器 码 组 成 的 最 基础 的 单词 ,对 闭 典 进行 扩展 。 
为 了 解决 系统 规模 不 断 增 大 与 有 限 的 内 存 空间 的 和 
盾 ,FORTH 系统 将 大 量 的 扩展 单 闭 人 存在 辅助 存储 胡 
上 的 单词 .成 为 FORTH 系统 中 极为 重要 的 问题 这 
怡 如 人 们 将 已 有 知识 进行 条 理化 和 制定 在岗 资料 的 
方法 ,对 于 利用 积累 的 知识 解决 实际 问题 是 洲 分 重 
要 的 一样 。 

四 .透明 的 语言 

使 用 传统 的 高 级 语言 运行 一 个 程序 ,在 运行 过 
程 中 ,操作 者 无 法 知道 计算 机 是 如 何 操作 的 ， 
FORTH 系统 的 运行 工作 空间 是 以 栈 的 形式 存在 。 全 
部 操作 都 在 栈 上 运行 ,操作 结果 总 是 反映 在 栈 上 上 。 栈 
就 好 象 -- 个 透明 的 窗口 。 这 就 使 FORTH 语言 成 为 
透明 的 语言 。 操 作者 可 通过 这 个 窗口 了 解 机 吉 的 执 
行情 况 ,以 便于 检查 和 调和 下 机 器 的 操 千 .从 而 可 以 提 
高 得 序 的 设计 质 荆 ， 

五 .目标 码 段 量 最 短 的 语 志 

任何 - -种 高 级 语言 编译 系统 对 源 程 序 的 编译 过 
程 ,一 般 总 是 要 经 历 词法 分 析 一 一 计 法 分 术 一 -- 中 
间 代 码 生 成 一 一 优化 一 -上 且 标 代码 生成 这 翌 五 步 。 
当 源 程序 很 大 时 ,目标 程 矿 的 规模 也 大 。 而 FEORTH 
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的 词法 和 语法 非常 简单 ,编译 原 程 序 的 过 程 中 没有 
明显 的 词法 和 语法 分 析 的 界线 ,其 次 是 不 产生 中 间 
代码 ,而 是 直接 产生 目标 码 ,并 且 FORTH 的 目标 不 
再 是 机 器 指令 代码 (汇编 单词 除外 ) ,而 是 被 调用 单 
词 的 入 口 地 址 ,这 就 是 说 目标 码 段 是 一 串 执行 单词 
的 入 口 地址 。 由 于 每 个 单词 不 管 其 代码 段 有 多 长 ( 汇 
编 单 词 的 代码 流 ,一 般 单词 为 地 址 流 ), 其 入 口 地 址 
总 是 以 一 个 地 址 字 ( 占 两 个 字 节 ) 出 现 . 因 此 ,这 样 形 
成 的 目标 码 段 的 短小 程序 是 很 显然 的 ,也 是 其 它 高 
级 语言 的 目标 码 段 所 无 法 比拟 的 。 

FORTH 语言 除了 以 上 特点 外 ,还 在 动态 管理 内 
存 空 间 方 面 优 于 其 它 高 级 语言 。FORTH 系统 在 运行 
中 可 以 灵活 地 分 配 新 单元 ,及 时 地 回收 无 用 单元 ,使 
内 存 空间 能 得 到 充分 的 利用 。 

同时 由 于 FORTH 的 目标 代码 是 地 址 流 , 其 中 
每 一 个 地 址 都 指示 着 一 个 单词 的 入 口 , 并 且 每 个 单 
词 又 具有 相同 的 结构 。 所 以 从 一 个 地 址 得 到 相应 单 
词 的 名 字 是 唯一 的 ,不 具有 二 义 性 .因此 可 以 从 目标 
程序 到 源 程 序 的 百分之百 的 反 编 译 , 这 是 任何 一 种 
高 级 语言 帮 至 汇编 语言 都 不 具备 的 。 

另外 .由 于 FORTH 的 系统 结构 也 是 完全 结构 
化 的 ,并 且 结 构 关 系 简 明 , 再 加 上 百分之百 的 反 编 
译 , 所 以 FORTH 系统 还 具有 极 好 的 可 移植 性 。 

综 上 所 述 ,FORTH 的 词典 结构 ,词法 及 语法 的 
简单 性 , 逆 波 兰 表 示 法 的 使 用 ,以 及 开放 的 双 堆 栈 结 
构 , 都 是 FORTIH 创始 人 C. Moore 的 别 具 区 心 的 设 
计 思 想 , 也 是 FORTH 之 所 以 具有 优越 性 的 根源 。 

这 些 特点 ,使 FORTH 语言 在 其 功能 ,执行 速度 
和 效率 上 ,是 其 它 任何 语言 所 无 法 比拟 的 。FORTH 
径 序 开发 速度 大 大 超过 了 PASCAL .FORFRAN、C 语 
言 等 第 三 代 高 级 语言 ,而 运行 速度 接近 汇编 语言 。 

FORTIH 语言 首先 在 美国 流行 ,然后 又 在 月 本 、 
西欧 等 发 达 国 家 掀起 热潮 。 它 的 应 用 范围 也 从 最 初 
的 天 文学 界 (1976 年 被 定 为 国际 天 文学 会 杯 准 语 
言 ) 深 入 到 了 科学 计算 .工程 技术 及 事物 管理 各 个 领 
域 ,并 进入 了 许多 大 学 的 课堂 。 尤 其 在 过 程控 制 、. 机 
器 人 控制 .图 象 处 理 .通讯 .数据 采集 与 分 析 .科学 和 
医学 仪器 仪表 等 应 用 领域 内 显示 了 任何 其 它 高 级 语 
言 所 无 法 比拟 的 突出 优越 性 。 它 的 直接 处 理 中 断 . 直 
接 与 IO 接口 通信 以 及 在 多 作业 运行 方式 下 的 实时 
编 评 等 能 力 , 为 实时 控制 和 管理 提供 了 刻 今 为 止 最 
为 优秀 的 实时 处 理 语言 。 

FORTH 语言 目前 正在 世界 上 委 渐 地 流行 开 来 ， 
“ 知 干 年 后 , 它 将 成 为 象 BASIC 那样 普及 的 语言 "。 
为 了 发 展 和 完善 FORTH 语言 ,1977 年 成 立 了 国际 
性 FORTH 学 术 组 织 一 -FIG (FORTH Jnterest 
Group), 它 拥有 自己 的 学 术 刊 物 , 会 员 遍 及 世界 各 

34 


地 。 目 前 ,国际 上 FORTH 编程 人 员 逐 年 增加 ,应 用 
FORTH 设计 的 项 目 日 益 增多 ,FORTH 厂 件 技术 的 
结合 ,将 会 产生 不 同 于 目前 的 传统 的 诺 友 型 计算 机 
的 新 一 代 计 算 机 。 

这 些 都 引起 了 我 国 科 技 界 的 关注 和 重视 。 我 国 
从 1980 年 开始 引进 FORTH 语言 ,经 过 前 析 、 移 植 与 
改进 ,已 在 航天 航空 .天文 .工业 过 程控 制 . 图 象 处 
理 、 人 工 智能 、. 单 板 机 开发 以 及 高 校 教学 方面 开始 应 
用 ,汉化 FORTH 等 也 已 推出 成 果 ,FORTH 在 我 国 也 
依 来 愈 受到 欢迎 。1987 年 6 月 还 在 北京 成 立 了 中 国 
FORTH 应 用 研究 会 ,创办 了 刊物 4 多 思 3( 原 名 多 思 
通讯 )。 使 得 这 一 语言 在 中 国 得 到 了 初步 普及 。 
FORTH 语言 正在 不 断 地 扩展 我 国 各 地 科技 和 生产 
领域 的 应 用 范围 ,对 于 打破 西方 国家 计算 机 技术 方 
面 芍 断 地 位 ,实现 软件 工 厂 化 生产 有 着 十 分 重要 的 
我 们 坚信 , 随 关 FORTH 语言 与 中 华 学 习 机 的 
结合 ,将 对 FORTH 在 我 国 的 普及 应 用 打下 坚实 的 
基础 。 我 国 在 计算 机 这 个 高 科技 领域 中 ,FORTH 一 
定 会 带 来 新 的 飞 蜂 。 
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一 一 读 4FORTH 入 门 》 有 感 


FORTH 语言 与 一 般 的 高 级 如 BASIC、FOR- 
TRAN 和 PASCAL 等 不 同 , 它 具 有 直观 的 .精炼 的 单 
词 表 达 形 式 , 准 确 的 .无 二 义 性 的 语法 结构 ,灵活 简 
短 的 写作 格式 和 快速 的 编译 过 程 。 用 它 来 编制 一 个 
编译 系统 的 时 间 比 用 C 语言 还 要 少 , 能 比 使 用 汇编 
语言 提高 开发 速度 十 几 倍 以 上 。 月 前 ,世界 各 国 已 掀 
起 应 用 FORTH 的 热潮 . 它 是 人 们 多 年 来 将 心 寻 更 
的 种 与 机 器 之 问 界面 简单 .结构 化 好 ,透明 性 强 ， 
以 及 编译 效率 高 并 能 自 扩展 的 、 理 想 的 软件 开发 工 
具 。 

《FORTH 入 门 }》 是 中 国 FORTH 应 用 研究 会 向 读 
者 郑重 推荐 的 一 本 极 佳 教 材 。 它 不 仅 内 容 丰 富 , 而 且 
表述 生动 ,举例 闭 实 。 全 书 共 分 十 二 章 , 系 统 地 介绍 
了 FORTH 语言 基础 ,数据 类 型 ,数学 运算 ,控制 结 
构 ,给 入 输出 ,FORTH 内 幕 ,语言 扩展 和 实例 等 ， 每 
个 章 . 节 都 有 习题 ,并 在 附 孙 中 给 出 了 答案 。 

本 书 由 浅 入 深 , 通 俗 易 情 , 宛 知 识 于 趣味 之 中 ， 
配 妙 地 引导 读者 从 书 中 学 到 许多 编程 技巧 和 编程 风 
格 方面 的 本 领 .希望 它 能 把 您 引入 一 个 趣味 侯 然 、 别 
有 洞天 的 新 境界 。 
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“。 新 产品 与 新 技术 。 


突破 苹果 机 极限 
-一 西安 钟楼 书店 图 书 业 务 管 理 系统 面市 
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鉴于 社会 上 广 为 使 用 的 dBASE 下 开发 出 来 的 
应 用 系统 速度 慢 . 相 对 容量 小 .系统 易 遭 破坏 、 使 用 
不 便 及 微机 闲置 率 高 等 情况 ,西北 大 学 计算 机 系 的 
洪 东 同志 在 苹果 机 上 研制 开发 了 西安 钟楼 图 书 业 务 
管理 系统 及 其 软件 新 方法 ,经 一 年 半 的 使 用 ,用 户 感 
到 很 满意 。 西 安 市 总 新 华 书店 已 打算 将 此 系统 及 方 
法 推广 到 西安 市 区 级 书店 。 

这 套 系统 的 全 部 功能 包括 建立 三 个 数据 库 及 在 
这 三 个 数据 库 上 实现 的 各 种 统计 、 检 索 与 制 表 功能 。 

该 系统 数据 库 是 图 书信 息 数 据 库 。 它 包含 了 三 
万 种 图 书 的 基本 信息 、 流 水 帐 及 累计 数据 .每 -- 种 图 
书 的 基本 信息 包括 书 名 .编号 .类 别 . 版 别 . 书 版 年 
限 .部 别 . 订 货 依 据 . 定 价 共 8 个 数据 项 。 每 一 种 图 书 
的 流水 帐 共 7 种 224 笔 : 订 货 帐 .预订 帐 , 到 货 帐 、 实 
收 货 帐 . 调 入 帐 . 调 出 帐 ,发 货 帐 ,每 种 帐 最 多 有 32 
笔 。 每 笔 帐 包括 年 .月 .日 . 册 数 等 。 每 一 种 图 书 累计 
数据 共 16 个 ,8 个 为 零售 累计 ,8 个 为 批发 标 计 。 

该 系统 销售 计划 数据 库 , 是 用 来 存储 书店 给 各 
个 销售 组 全 年 12 个 月 的 销售 计划 金额 数 。 它 的 销售 
帐 数据 库 , 是 用 来 存储 书店 中 各 销售 组 一 年 中 的 每 
天 零售 .批发 及 邮购 的 图 书 册 数 、 金 额 和 折扣 数 。 对 
这 三 个 数据 库 的 内 容 都 可 任意 地 追加 ,修改 和 删除 。 

该 系统 可 完成 下 列 功能 : 按 版 别 . 部 别 .类 别 , 碍 
阅 并 统计 打印 图 书信 息 + 按 出 版 年 限 统计 打印 图 书 
信息 + 统计 打印 图 书 进出 库存 月 报表 、 销 售 旬 报 表 、 
计划 销售 月 报表 ;打印 今日 各 部 别 图 书 到 货 统计 表 ; 
打印 预测 到 货 表 等 五 项 功能 。 

该 系统 还 有 两 项 系统 自身 使 用 的 功能 :如 按 记 
录 序 号 查看 .追加 ,修改 和 删除 记录 ;修改 系统 密码 
〈 即 口令 ) 能 在 茧 果 下 这样 小 的 微机 上 建立 起 包含 有 
三 万 种 图 书 的 大 数据 库 以 及 在 这 些 库 上 能 实现 如 此 
齐全 而 复杂 的 功能 .其 软件 开发 方法 是 :整个 系统 采 
用 汇编 语言 编制 ,因而 程序 荆 小 .运行 速度 快 。 尤 其 
是 软 磁 谷 .汉字 显示 及 打印 机 工作 速度 特别 快 . 不 有 
用 “文件 "概念 等 "文件 "结构 ,直接 由 人 工分 配 的 内 
存 空 间 与 三 盘 空 间 ,结果 是 空间 节省 ,速度 也 快 。 尤 
其 是 在 数据 库 章 局 部 破坏 时 极 易 于 修复 ,任何 时 候 
都 不 会 导致 数据 的 全 部 去 失 。 该 系统 用 用 一 种 独 
特 的 体系 结构 方式 , 比 用 高 级 语言 系统 灵活 方便 ,不 
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利用 任何 现成 的 高 级 语言 和 系统 软件 ,而 是 在 详细 
解剖 原 机 器 的 硬件 和 核心 软件 的 基础 上 ,针对 汉字 
特点 与 一 般 应 用 系统 的 要 求 , 用 汇编 语言 编制 了 一 
百 多 个 标准 子 程序 ,作为 软件 工具 来 调用 .用 这 些 标 
准 子 程序 与 上 述 的 新 型 体系 结构 去 开发 任何 应 用 系 
统 , 不 比 用 高 级 语言 或 汉字 dBASE 下 困难 。 

该 系统 采用 一 种 特殊 的 信息 压缩 方法 ,使 内 存 
与 磁盘 中 所 装 的 信息 密度 大 幅度 提高 .由 于 采用 了 
这 种 新 方法 ,在 苹果 机 上 开发 钟楼 书店 业务 管理 系 
统 取得 了 比 一 般 用 dBASE 下 方法 在 IBM PC/XT 机 
上 还 要 好 的 效果 。 通 过 一 年 多 的 使 用 ,这 一 系统 表 
现 出 来 的 突出 优点 是 : 

1. 响应 速度 快 

每 输入 一 个 记录 只 需要 1 一 一 2 秒 钟 即 可 写 入 
磁盘 中 ,操作 人 员 基 本 上 不 等 机 器 ,将 3000 个 数 
(每 个 数 的 大 小 为 19999999. 99) 调 入 或 调 出 软磁盘 
仅 需 3 秒 钟 ,统计 一 张 软盘 上 的 352 种 图 书 的 各 种 
信息 一 般 只 需 7 秒 钟 , 从 打开 电源 开关 到 屏幕 上 出 
现 应 用 系统 的 每 幅 汉 字 屏 幕 之 间 仅 需 5 秒 钟 引导 时 
间 。 这 样 快 的 响应 速度 用 其 它 软件 工具 是 根本 达 不 
到 的 。 

2. 数据 存 贮 密度 大 

每 张蕾 果 机 单 面 密度 软磁盘 (140KB) ,如 果 存 
贮 图 书信 息 , 则 可 装 下 352 种 图 书 的 总 共 2816 个 数 
据 项 ,加 上 11253 笔 流水 帐 ,再 加 上 5632 个 累计 数 
据 。. 如 果 存 贮 计划 和 销售 信息 , 则 一 张 软盘 可 装 下 整 
理 一 年 的 销售 帐 与 计划 数 , 总 共 38000 多 个 数 , 每 个 
数 的 大 小 为 19999999. 99, 这样 的 存储 密度 也 是 其 
他 软件 工具 所 望 沾 莫 及 的 。 

3. 该 系统 中 ,记录 在 磁盘 和 内 存 中 不 是 按 “ 文 
件 ? 结 构 组 织 的 ,而 是 由 人 工 按 物理 位 置 组织 安 排 
的 ,因此 很 容易 查看 .修改 和 删除 某 -- 物 理 位 崇 上 的 
信息 内 容 , 万 一 局 部 遭 破 坏 也 极 易 修复 ,绝对 不 会 发 
生 整 个 数据 库 一 旦 被 局 部 破坏 而 整个 丢失 的 情况 ， 
用 其 它 软件 工具 研制 的 应 用 系统 则 作 不 到 这 一 点 。 

4. 软件 系统 安全 性 能 好 

在 输入 信息 的 每 步 中 都 对 信息 的 合法 性 作 了 检 
测 ,使 非法 信息 不 能 送 入 计算 机 ,即使 乱 拍 键盘 也 不 
会 造成 程序 和 数据 库 的 损坏 。 在 数据 存盘 和 运算 过 
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"新 产品 与 新 技术 。 


CEC 一 I 磁带 LOGO 版 本 


新 锥 石河 子 市 兵团 设计 院 


中 华 学 习 机 CEC 一 1 型 机 固化 有 MIT 版 LOGO 
语言 ( 子 集 )。 进 入 LOGO 后 ,键入 的 过 程 ( 程 序 ) 仅 能 
使 用 软盘 驱动 器 来 进行 存 取 , 不 能 用 录音 磁带 来 存 
取 LOGO 程序 ,而 广大 的 CEC 一 I 机 用 户 未 必 都 配 有 
软盘 驱动 器 ,给 LOGO 语言 的 推广 增加 了 困难 .本 人 
经 过 剖析 CEC 一 I LOGO ,通过 大 量 的 实践 ,推出 中 
华 学 习 机 CEC 一 1 磁带 LOGO VERSION2. 0( 下 称 磁 
带 LOGO); 该 磁带 LOGO 在 开机 后 用 游戏 语句 
PLAY 调 入 , 若 要 存 取 文 件 可 直接 用 原 LOGO 语言 
的 SAVE、READ 和 SAVEPICT 、READPICT 语言 其 
格式 不 变 , 同 进 磁带 LOGO 还 具有 大 小 写字 母 的 输 
入 输出 ,使 得 CEC 一 I LOGO 的 编程 更 加 方便 。 为 了 
使 广大 的 CEC 一 I 用 户 均 能 使 用 磁带 LOGO 现 将 磁 
带 LOGO 的 引导 程序 提供 出 来 ,以 便于 LOGO 语言 
的 推广 和 使 用 。 

在 监控 状态 下 键入 $8B000 起 的 机 器 码 , 然 后 从 
$ 8000 执行 即 可 进入 磁带 LOGO# 若 将 引导 程序 在 
监控 状态 录制 成 位 带 保存 ,使 用 时 再 在 监控 状态 调 
入 后 运行 ,就 可 方便 地 使 用 SAVE、READ 存 取 文 件 ， 
用 SAVEPICT READPICT 来 存 取 图 形 , 使 众多 无 软 
盘 驱 动 器 的 用 户 能 使 用 LOGO 当然 每 次 都 要 进入 
监控 比较 麻烦 ,笔者 已 将 引导 程序 录 成 游戏 方式 ,在 
BASIC 状态 用 PLAY 方便 地 调 入 。 


CEC 一 I 磁带 LOGO 引导 程序 
B000- A9 10 8D BO CI0 


8D 07  C0 
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B008- 20 00 c6 8D 06 co A2 00 
B0I0- A0 00 BD 84 BO0 85 00 BR 
B018- BD 84 BO 85 0 98 48 89 
B020- 60 BO A0 00 9 00 68 
B028-  E8 C8 CO 33 D E4 4C DIl 
B030- D2 AD 8A CO A9 00 85 3c 
B038- 85 3E A9 20 85 3D A9 40 
B040- 85 3F 4C ID DI AD 8A oc0 
B048-  A9 00 85 3C 85 3E 8D 60 
B050- AA A9 20 85 3D 8D 6l  AA 
B058- A9 40 85 3F 4C 49 Dll 00 
B060- 3l!1 BO0 3lI B0 45 BO EA  EA 
B068-  EA EA 32 30 39 38 0D 0D 
B070- 0OD 4C 78 70 20 58 4A 0D 
B078- IOD OoD 0oD D 00 00 00 00 
B080- 00 20 00 0 35 6CcC 36 6C 
B088- 70 60 7!1 60 F0 6B8 FI 6B 
B090- 29 ID 2A ID 40 7D 4 7D 
B098- BC 34 BE 34 D0 34 D2 34 
BOAO- D5 34 Dp6 34 D7 3( D8 34 
BOA8- D9 34 DA 34 pB 34 DC 34 
BOBO0- DD 34( DE 34 DB 34 DCc 34 
B0B8- 下 ] 314 FE2 314 DF 234 E0 34 
BUC0O- E5 34 E6 3 60 AA 61  AA 
BO0C8- 00 00 000 00 00 00 00 00 


融 囊 三 和 人 束 玲玲 


程 中 尽量 采用 各 种 校 验 手 段 ,防止 发 生 错误 .此 外 在 
开机 后 进入 应 用 系统 之 前 ,要 求 操作 员 输 入 正确 的 
密码 ,防止 他 人 有 意 或 无 意 地 破坏 数据 库 内 容 。 

5. 硬件 系统 稳定 可 靠 , 对 环境 适应 性 强 

由 于 苹果 工 微机 发 展 较 成 如 , 质 荆 稳 定 可 靠 , 不 
需要 专用 机 房 , 在 一 般 办 公 室 即 可 使 用 。 

6. 整个 系统 价格 低廉 

由 于 用 溺 果 工 型 机 实现 了 原 米 在 IBM/PC/XT 


机 上 才能 实现 的 功能 ,硬件 费用 明显 降低 ,加 上 软件 - 


费用 也 展 ,一 般 办 公 室 即 可 使 用 .所 以 中 小 企业 和 书 
店 邦 具有 购买 能 力 。 

7. 操作 简便 .直观 易学 

只 要 操作 人 员 具 有 初中 文化 ,两 天 即 可 学 会 并 
上 机 操作 ,一 周 可 熟练 学 握 。 

现在 已 将 这 种 新 方法 移植 到 了 长 城 0520DH 机 
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上 ,并 止 在 为 陕西 省 纺织 


这 
寻 H 公 


司 研制 “会 计 统 计 业 务 


微机 管理 系统 "这 个 系统 支持 如 下 这 样 一 个 复杂 的 
商业 批发 经 营 结 构 ; -个 公司 下 属 16 个 小 部 门 , 一 
个 小 部 门 经 营 64 个 大 类 ,一 个 大 类 领导 64 个 小 类 ， 
一 个 小 类 领导 512 个 品种 ,一 个 品种 领导 32 个 等 
级 ,一 个 等 级 领导 10 个 库 址 .只 需 一 次 性 输入 进货 、 
销 货 的 原始 数据 ,计算 机 即 可 按 既 定 的 时 间 要 求 ( 按 
每 5 日. 按 月 、 按 年 ) 产 生 会 计 、 统 计 部 门 所 需要 的 各 
种 数据 与 报表 ,并 按 季 度 、 分 仓库 、 按 大 类 打印 出 各 
种 商品 的 各 个 等 级 的 期 末 库 存 数量 供 仓库 对 帐 用 。 

这 一 系统 在 容 基 . 速 度 、 使 用 方便 程度 与 系统 可 
靠 性 方面 , 比 上 面 介 绍 的 华 果 于 系统 , 则 有 更 大 的 提 
高 . 现 已 受到 用 户 的 欢迎 ,有 可 能 打开 一 种 商业 部 门 
使 用 计算 机 的 新 局 面 。 


. 电脑 神通 . 


心 电 向 量 图 微机 分 析 系 统 
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心 电 向 量 图 能 准确 地 显示 心动 周期 内 各 瞬时 心 
电 变 化 的 空间 相位 关系 ,在 很 大 程度 上 补充 心电图 
诊断 的 不 足 , 是 心脏 疾病 诊断 的 重要 方法 .以 前 由 于 
描记 困难 ,参数 计算 费时 .繁琐 而 影响 临床 应 用 。 为 
此 ,我 们 在 本 院 具备 的 APPLE E 微机 和 SJ-42 型 多 
道生 理 记 录 仪 上 开发 了 本 系统 ,经 实验 研究 和 400 
例 临 床 应 用 ,效果 满意 。 

工作 原理 

一 、 系 统 组 成 

1. 由 SJ-42 型 多 道生 理 记 录 仪 和 Frank 寻 联 构 
成 系统 的 信号 模拟 放大 部 分 。 

2. 微机 系统 有 APPLE 主机 ,再 配备 16K 语言 卡 
和 超级 汉 卡 。 

3. 选用 BA120 超级 A/D 十 D/A 卡 作 为 中 间 联 
接 部 分 。 该 卡 有 16 路 A/D,16 路 D/A, 转 换 精 度 8 
位 ,电压 土 5 伏 ,A/D 转换 时 间 9 微 秒 ,该 卡 置 入 微 
机 的 5 号 扩展 槽 口 , 实 际 应 用 3 路 A/D 串 行 采集 三 
路 心 电 信和 号 ,用 1 路 D/A 控制 生理 记录 仪 。 


各 SJ 一 42 多 道 图 BA120 站 
”车 生理 记录 仪 让 人 


图 一 



















二 ,软件 

本 系统 软件 在 CCDOS-83 超级 汉 卡 操作 系统 
下 ,以 APPLESOFT BASIC 和 6502 汇编 语言 编制 .其 
主要 组 成 如 下 ， 


晕 殿 黄 六 王 江 


心 
忆 回 
电 | | 最 
采 | | 图 
集 | | 绘 
与 | | 制 
编 | | 与 
辑 | | 分 

析 


压 茧 未 更 避 当 诬 臣 








1. 主 控 程 序 : 首 先 设 置 内 存 保护 ,在 HIMEM 之 
上 设 定 4K 空间 ,放置 ”转换 结果 和 机 器 语言 子 程 
序 。 将 LOMEM 设 定 在 第 一 页 图 形 区 之 上 ,防止 程序 
运行 中 冲 擅 图 形 区 。 在 汉字 状态 下 以 人 机 对 话 方式 
显示 “菜单 内容。 见 图 二 

2. A/D 转换 子 程序 :由 6502 汇编 语言 写成 一 
次 调 入 指定 内 存 空间 ,用 CALL 语句 调用 ,流程 图 见 
图 三 .初始 化 包括 设置 地 址 .计数 器 和 变 址 寄存 器 清 
零 等 指令 。 三 路 A/D 转换 结果 均 在 指定 空间 中 存 贮 
竺 处理。 采用 软件 延 时 方式 决定 采样 密度 。 根 据 采 
样 定 理 , 本 系统 选用 500HZ 频率 ,每 路 采样 1024 
点 ,足以 取 到 2 一 4 个 心动 周期 。 

3. 心 电 数 据 采 集 与 编辑 子 程序 :本 程序 首先 重 
新 设置 键盘 ,使 之 成 为 专用 功能 键盘 。 在 屏幕 提示 
下 ,启动 控制 键 . 调 用 A/D 转换 子 程序 ,完成 信号 采 
集 , 采 样 时 X.Y.Z 三 路 心 电 信号 串 行 采 集 , 每 一 路 


一 下 达 四 次 7 一 图 四 


心 电 采 集 与 编辑 
子 程序 图 


图 三 A/7D 转 换 子 程序 图 


间隔 20hs, 从 医学 临床 角度 可 看 到 三 路 同步 进 
行 . 采 样 后 将 三 路 心电图 绘制 在 屏幕 上 ,如 图 形 出 现 
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干扰 ,漂移 等 蝴 变 , 可 启动 控制 键 重新 采集 。 

心电图 形 识别 是 心 电 信和 号 处 理 最 重要 的 部 分 之 
…-。 近 年 来 曾 研究 报告 多 种 自动 识别 方法 ,如 导数 
法 ,由 值 法 等 。 但 这 些 方法 对 QRS 波 群 识 别 较为 有 
效 ,而 对 于 振幅 较 小 ,变化 缓慢 的 P 波 与 T 波 的 识 
别 误 差 较 大 ,效率 不 高 ,结果 时 常 引起 临床 医师 的 疑 
问 。 因 此 我 们 选用 计算 机 辅助 屏幕 编辑 方法 ,由 医师 
通过 键盘 操纵 游标 ,对 屏幕 绘 出 的 心电图 进行 识别 ， 
求 取 心 电 特征 点 ,微机 自动 将 这 些 点 的 位 置 记忆 并 
送 入 指定 地 址 存 贮 。 这 种 方法 具有 人 机 交互 ,准确 可 
靠 的 优点 ,更 易 被 临床 医务 人 员 接 受 。( 见 图 四 ) 

4. 向 量 图 绘制 与 分 析 子 程序 :完成 各 面 心 向 量 
图 的 绘制 ,分 析 计 算 各 个 诊断 指标 。( 见 图 五 ) 


启动 
画 座 标 轴 


分 析 结果 存盘 


分 析 结果 存盘 |] 


绘 H 面 向 坡 | 


分 析 结果 存盘 | 


返 主 


网 辣 绘制 心 问 量 图 与 分 析 子 程序 


绘图 以 两 座 标 轴 的 交点 为 心 向 量 图 的 零点 。 向 
基 图 的 绘制 分 三 个 面 顺序 进行 。 各 面向 工 图 分 .: 段 
绘制 ,.P 段 ( 环 ),QRS 段 ( 环 ),T 段 ( 环 )。 首 先 以 
PEEK 才 句 从 内 存 指定 空间 逐 点 取出 心 电 数 据 . 从 
两 相交 轴 心 电信 和 导 中 计算 求 出 该 瞬时 间 基 的 相位 、 
角度 .振幅 变化 等 各 指标 ,再 以 高 分 辨 率 作 图 将 该 点 
绘制 到 屏幕 了。 三 环 绘制 完成 ,再 求 出 各 环 问 的 关系 
指标 。 在 一 个 面向 其 绘制 完 后 ,结果 以 顺序 文件 作 
盘 。 绘 图 过 程 及 求 取 指标 均 以 图 文 并 茂 形式 显示 , 便 
于 医师 观察 各 环 体 形态 及 运行 方向 ,做 出 判断 . 

5. 报告 打印 及 图 形 拷贝 子 程序 :程序 首先 读 取 
磁盘 中 的 心 问 量 指标 文件 ,然后 以 汉字 报表 打印 输 
出 ,采用 于 感 复写 纸 , 同 时 打印 两 份 , 节 省 机 时 。 正 交 
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心电图 及 心 向 莉 以 高 分 辨 率 作 图 方式 绘制 ,采用 随 
机 动态 拷贝 打印 输出 。 
(报告 单 ) 
临床 应 用 

选择 正常 人 52 例 ,年 龄 在 32 一 72 岁 ,平均 年 龄 
48 岁 。 使 用 本 系统 进行 检测 ,将 所 得 48 项 参数 值 与 
国外 使 用 标准 心 向 基 图 机 检测 结果 相 比 较 , 无 显著 
性 差异 。( 见 表 1 一 3) 

P 环 最 大 向 量 振幅 和 角度 比较 表 ( 表 一 ) 


一 
本 工程 醒 工 程 桥 工 商 醒 工程 酉 工 前 三 工 思 
ZE 

aa 


EDZICEEE 
0. 1 士 0. 04| 67 士 18 四. 09 士 0, 0 引 88 士 22 .05t0.03 6 土 40 
5 [08 om 



















> 而 | 镇 而 | 
振幅 TO 
| 本 组 |0. 99 土 0. 3| 5013 lo.84 十 0. 29 89.5 士 29 |0. 65 士 0. 49 2.8 士 33 
林 狼 |1. 18 士 0. 3| 37.4! 12 |0.79 土 0.3| 89 土 18 .9? 士 0.2 
黄 氏 121 十 30 .66+ 0.3 


灿 面 | bm | 
工程 醒 工 面 库 了 开本 工 王 

























振 山 
31.4+ 13 上 . 32 十 0. 16 49 十 77 .39 二 0.19 36.4 七 1 
















黄 氏 0.44 土 0. 1 57 土 12 jp.42 土 0.11 113 寺 19 .27 土 0.2 28 土 30 


cou| 05 | 3 | 04 45 0 

上 述 结果 表明 ,本 系统 在 虱 床 上 应 用 是 可 靠 的 。 
采用 计算 机 统一 测 生 方法 和 测量 标准 ,显著 的 提高 
了 工作 效率 ,通过 磁盘 可 以 长 期 保存 采集 的 图 形 及 
结果 , 调 阅 方便 ,利于 临床 科研 资料 总 缚 。 充 分 显示 
了 微机 在 医学 领域 应 用 的 极 大 作用 ， 


人 CRLCALCCC 人 





呈 





< 人 


.文摘 。 








上 海 近 60 所 高 校 建立 电教 中 心室) 


上 上海 目前 已 有 近 60 所 各 类 高 校 建 立 了 电教 中 
心 ( 室 ), 拥 有 一 支 上 千 人 的 专职 电教 队伍 ; 有 为 数 众 
多 并 且 配 套 的 电视 拔 像 机 .录放 像 机 .电视 监视 器 、 
电影 报 弦 像 机 .放映 冰 像 演播 室 .电视 卫星 接收 站 、 
电子 计 和 他 机 辅助 教学 系统 等 教育 设施 。 报 制 的 教学 
录像 片 和 有 永 将 带 已 成 为 文 . 理 . 工 . 医 等 多 种 学 科 的 
教材 ，( 摘 自 文 汇报 ) 


“ 电脑 神通 。 


家 庭 档 来 


四 川 移 钢 冶 金工 业 学 校 


本 程序 在 中 华 学 习 机 上 通过 ,用 于 各 种 记事 。 记 
事 内 容 以 顺序 文件 的 形式 存 入 磁盘 ,磁盘 只 须 使 用 
两 次 (存盘 和 调 盘 ) .中 文 状态 每 行 输入 内 容 , 不 超过 
34 个 字符 。 记 事 内 容 调 入 内 存 后 ,用 户 可 以 任意 对 
某 一 行 或 全 部 内 容 进 行 查看 .修改 .删除 和 打印 。 可 
以 任意 添加 一 行 或 多 行内 容 , 可 以 在 任意 一 行 后 插 
入 其 它 内 容 。 每 一 步 操作 都 有 详细 的 中 文 提示 ,使 用 
方便 。 
本 程序 主要 优点 是 :记事 内 容 以 9 行为 一 屏幕 ， 
按 任意 键 转 入 下 一 屏幕 ,直至 完毕 ,又 回 到 菜单 。 
此 外 ,读者 只 须 做 少量 的 改动 ,就 可 把 西 文 状态 
下 的 顺序 文件 和 随机 文件 用 于 此 程序 . 故 不 再 介绍 。 
10 PRINT CHR$ (4) ;PRH# 3”" :PRINT :HOME 
20 ONERR GOTO 140 
30 DIM A$(360) 
40 D$ 一 CHR$4 (4):PRINT D$ “NOMON C,1,0" 
50 VTAB 1;HTAB 11:PRINT ”家庭 档 案 ” 
60 VTAB 4:HTAB 7;PRINT "中文 状态 下 的 顺 详 文件 * 
70 VvTAB 8:INPUT "请 输入 文件 名 ::";Qd$ :FL$ -=-QV$ 
80 PRINT D$ "OPEN" ;FLY 
90 PRINT D$i"READ”;FLVY 
100 FOR R=17ToO 360 
110 _ INPUT A$(CR) 
120 NEXT R 
130 PRINT D$ ”CLOSE";FL$ 
140 N=R.l 
150 HGR2;VvTAB 3;PRINT "文件 名 :”;FLS$ 
160 PRINT :PRINT "共有 ”Ni 条 话 句 .， 
170 VTAB 7:INPUT "你 再 归 什 立 儿 亲 诸 锌 :5Q$ :Q= 
VvVALCQ$):N=Q 
180 IF Q:-0THEN 170 
190 HGR2:VvTAB 1;HTAB 14:PRINT "档案 ” 
200 PRINT :PRINT TAB(7):”1. 相 看 ":TAB(22); 5. 出 


210 PRINT TAB(7):”2. 修改 ";TAB(22)3;”6. 打印 ， 

220 PRINT TAB(7):”3. 添加 " ;TAB(22):77. 在 稚 ” 

230 PRINT TAB(7):”4. 插入 "TAB(22)4"8. 结束 ” 

240 VvVTAB 8B8:HTAB 14:PRINT "请 选择 :": :GET Q$ : 
PRINT Q$ :;Q=VvAL (Q$ ) 

250 IF Q 一 1 OR Q>8 THEN 240 

260 ON Q GOSUB 280,.370.590,620,740.480.850,960 

270 GOTO 190 

280 GOSUB 550 


290 
300 
310 
320 
330 


340 
350 
360 
370 
380 
390 
400 
410 


420 
430 
440 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


560 


570 
580 
590 


600 
610 
620 


630 
640 


黄 文 责 


HOME ,T =0 

FOR R 王 R1 TO R2 

T =T 二 1 

PRINT A$CR) 

IF T=9 AND R <R2 THEN VTAB 9, HTAB 32， 
PRINT ””; :GET Q$ :HOME :T=0 

NEXT R 

VTAB 9;HTAB 32;PRINT "”; ;GET Q$ 

RETURN 

GOSUB 550 

HOME :;T=0 

FOR R 王 RI TO R2 

T =T 十 1 

VvVTAB T:PRINT TAB(2);A$ (CR); :HTAB 1:INPUT 
Qy$ 

IF LEN (Q$)<- >0THEN A$CR)=Q$ 

VTAB T:PRINT TAB(2):A$(R) 

IFT==-9 ANDR<<R2 THEN VTAB 9:,HTAB 32: 
PRINT ”", :GET Q$ :HOME :;T=0 

NEXT R 

VTAB 9:HTAB 32:PRINT "";:OET QV$ 

RETURN 

GOSUB 550 

POKE 915.75:POKE 1659 ,5 

FOR R 王 RI TO K2 

PRINT A$(R) 

NEXT R 

POKE 915,76:POKE 1659 ,0 

RETURN 

VTAB 10:PRINT "请 选 拼 1--”;Ni;" 条 滞 馈 (0 选 企 
部 )”， :INPUT ""4QS$:Q=VvAL(OY ) 

IF (Q<1 OR Q>N)AND Q$ < >>"”0"THEN PRINT 
CHR $ (7),:GOTO 550 

R1=Q:R2 一 Q:IF QO=0THEN RI=1:R2=-N 
RETURN 

VTAB 10:HTAB 8:INPUT “你 这 要 涂 加 儿 条 请 名 ”"， 
Q$iQ=vALCQSW$ ) 

R1 王 N 十 1]:R2=N 二 Q:N-=NTOQ 

GOTO 380 

VTAB 10;HTAB 3:INPUT "你 需要 桶 在 哪 :条 族人 
的 后 而 "5Q$ :Q=VAL(QSY$ ) 

HGR2:VTAB 2:PRINT TAB(2):;A$(Q) 

PRINT :PRINT TAB(7);" 人 在 这 和 杀 司 面 ? CCY/N)":: 
GET Q$ :PRINT QS$ 
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650 IFQ$ 王 > ”"Y"THEN RETURN 830 “PRINT :PRINT TAB(13) "已 删除 !” :FOR 1 王 1 TO 


660 VvTAB 6;INPUT Q$ 1000;,NEXT 1 
670 RI=Q+2:R2=N 十 1;:N=N 十 1 840 RETURN 
680 FOR R=R2 TO R1 STEP-1 850 HOME ;PRINT D$ ,MON C,1,Ov 
690 A$(R)=A$(R-1) 860 PRINT D$ “OPEN"”;FL$ 
700 NEXTR 870 PRINT D$ , “DELETE",FL$ 
710 A$Q+I)=Q$:vTAB 6:PRINT TAB(2);A$(Q 880 PRINT D$“OPEN";FL 
十 1) 890 PRINT D$，wRITE";FL$ 
720 PRINT ;PRINT TAB (14);" 已 插入 lj" ;FORI =1TO 900 FORR=1TON 
1000;,NEXT 1 910 _ PRINT A$ CR) 
730 RETURN 920 NEXTR 
740“vTAB 10;HTAB 7,INPUT "你 需要 删除 哪 -条 谱 “930 PRINT D$ “CLOSE":FL$ 
句 ",Q$ :Q=vALCQS ) 940 PRINT D$ ;”"NOMON C,1,O" 
750 HGR2,VvTAB 2;PRINT A$(Q) 950 RETURN 
760 _VvTAB 5;HTAB 9;PRINT "是 这 -- 条 语句 吗 ?， 960 HGR2:vTAB 4;HTAB 11;PRINT " 按 任 意 键 结束 ， 
770 PRINT TAB (13)y"(Y/N)";;GET Q$ ;PRINT Q$ 970 _VTAB 6;HTAB B;,PRINT "Y 键 继续 使 用 本 程序" +; 
780 IF Q$ < > ，"Y*THEN RETURN GET QOS$ 
790 RI =Q,R2=N-1:N 一 N-1 980 IF Q4 =，"Y" THEN D=FRE(0);RUN 30 
800 FOR R=RI TO R2 990 HGR2:VTAB 5;HTAB 14;PRINT 14;:PRINT ”内 见 "， 
810 AS$(R)=A$(CR 二 1) VvTAB 9:END 
820 NEXTAR 
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*。 通讯 ， 
济南 市 教育 学 会 电子 计算 机 
教育 研究 会 如 开 第 四 届 年 会 


吴 安 标 


1989 年 11 月 5 日 ,济南 市 教育 学 会 电子 计算 机 教学 研究 会 召开 第 四 届 年 会 ,会 议 为 期 一 天 ,到 会 的 有 
来 自 市 中 区 的 中 .小 学 .职业 中 学 .中 专 近 二 十 余 所 学 校 及 区 教委 ,少年 官 从 事 计 算 机 教学 和 辅导 工作 的 教师 
近 五 十 余人 人。 上午, 代表 们 共 乘 一 辆 车 先后 来 到 济南 二 十 中 及 位 于 西 郊 的 无 影山 小 学 ,通过 参观 这 两 所 学 校 
简陋 的 计算 机 教学 活动 场地 设 吐 及 听取 两 位 校长 对 各 自 开 展 计算 机 课外 兴趣 小 组 活动 的 情况 介绍 后 ,到 会 
代表 无 不 深 受 教育 ,感动 地 说 :领导 重视 ,任教 老师 热心 和 有 献身 计算 机 教育 事业 的 决心 是 这 两 个 学 校 取得 
成 绩 的 主要 原因 .这 两 所 学 校 在 条 件 差 的 情况 下 能 走 在 全 市 计算 机 教学 行列 的 前 面 ,同时 培养 出 一 批 在 全 市 
计算 机 竞赛 中 获奖 的 尖子 学 生 ,是 因为 领导 亲自 抓 , 任 教 老 师 克服 种 种 困难 才 取得 的 成 绩 。 无 影山 小 学 的 黄 
恒 老 师 便 是 这 样 -- 位 自强 不 息 . 拼 搏 不 止 的 中 年 人 。 这 所 学 校 仅 有 一 台 LASER 一 310 机 ,但 在 他 的 努力 下 不 
少 学 生 摔 回 了 市 “浪潮 杯 ”"“ 泉 城 杯 "微机 大 赛 的 奖状 。 这 使 到 会 代表 无 不 油 然而 升 敬 意 。 二 十 中 也 是 条 件 较 
差 的 学 校 ,但 他 们 当场 演示 了 配 和 教学 的 自己 研制 的 理化 教学 软件 令 代 表 们 赞叹 不 已 。 下 午 ,代表 们 乘 车 来 
到 省 重点 中 学 山东 实验 中 学 后 ,听取 了 该 校 校长 的 经 验 介绍 和 计算 机 任课 老师 汇报 .参观 了 该 校 较为 先进 的 
计算 机 机 房 , 该 校 是 继 济 南 一 中 之 后 又 已 把 计算 机 课 正 式 列 入 课程 表 作为 高 中 学 生 必 修 课 的 学 校 . 代 表 们 在 
会 期 内 相互 切磋 学 问 、 交 流 信息 .探讨 有 关 计 算 机 教育 的 各 方面 问题 ,感到 与 教研 会 初期 相 比 , 济 南 市 中 ,小 
学 在 计算 机 配置 上 条 件 已 有 一 定 改观 ,计算 机 教学 活动 已 有 - 定 规模 发 展 , 但 是 仍然 存在 不 少 有 待 解决 的 各 
种 问题 ,大 家 均 感 到 这 次 会 议 开 得 生动 活 小 .大 有 收获 、 深 受 鼓舞 ,有 恳 定 对 今后 一 年 的 全 市 计算 机 教学 活动 有 
大 的 促进 作用 。 
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“ 奖 用 程序 。 


虽 量 平 差 计 算 和 精度 评定 的 通用 程序 


石家庄 市 规划 设计 处 ” 任 朝 生 李 卸 起 


目前 ,在 测量 行业 ,夏普 PC-1500 计算 机 已 得 到 
广泛 应 用 。 尽 管 已 有 些 适 用 于 PC-1500 机 计算 测 基 
平 差 的 程序 ,但 一 个 程序 只 能 解决 一 类 平 差 问题 ,局 
限 性 较 大 ,为 此 ,我 们 编写 了 适合 于 PC-1500 机 使 用 
的 解 算 测 量 平 差 问题 的 通用 计算 程序 。 

测量 平 差 就 是 根据 最 小 二 乘法 原理 ,寻求 其 中 
能 使 “VTPV 王 最 小 "的 一 组 V 值 ,并 以 此 解 算出 观测 
值 的 最 或 然 值 .从 根本 上 讲 ,测量 平 差 是 一 个 较 复 杂 
的 数学 问题 。 本 通用 程序 就 是 基于 测 基 平 差 这 一 特 
点 编制 的 。 它 采用 线性 代数 的 理论 处 理由 条 件 方程 
式 所 组 成 的 系数 增 广 手 阵 。 

一 、 数 学 模型 

由 平 差 问题 所 组 成 的 条 件 方程 式 其 矩阵 形式 


AL 十 Ao=0 (1)(A: 系 数 矩 阵 ) 

AV 二 WwW=0 (2) 其 中 WwW=AL 十 An 

由 十 条 件 方程 (2) 的 系数 算 阵 A 的 秩 为 RCA) 
= 一 Y, 方 程 中 的 未 知 数 向 量 V 的 维 数 为 n, 且 n>>R 
(A), 所 以 (2) 中 YV 的 解 不 是 唯 -- 的 。 按 照 测 最 平 差 
理论 , 需 取 用 拉 格 朗 日 乘 数 法 求 出 VIPV 王 最 小 的 一 
组 解 ， 

设 有 联系 数 向 十， 

组 成 新 函 数 @=VTPV- 2KICAV 十 W) 


刚 :局 一 2VTP 一 2KIA=0 


即 :V7P-=KT7TA 

V ==P 1 A' 上 5 

nXl nxn nxXxr AN 

W ) 

计算 单位 权 中 误差 采用 公式 :mo 一 土 \/ 二 定 
计算 平 差 值 柄 数 的 权 倒 数 采 用 下 式 : 

QL- 一 fP-If 十 条 P AIq 

.ID 9 一 一 N A P- | f 

CR TXT  TrXxn nxn nxl 
二 ,程序 功能 


本 程序 采用 条 件 平 差 方法 ,完成 控制 网 的 平 差 


计算 并 对 其 进行 精度 评定 。 参 加 平 差 的 观测 俩 是 妇 
算 到 投影 平面 上 的 边 长 和 经 过 改变 的 角 值 。 本 程序 
对 带 有 16K 字 节 模块 (CE-161) 的 PC-1500 机 ,可 计 
算 含 有 15 个 条 件 方程 式 和 20 个 未 知 数 的 平 差 问 
题 。 

为 节省 机 时 ,扩大 解 题 范围 ,本 程序 分 五 段 编 
制 。 第 - 段 :输入 全 部 计算 中 所 需 数据 及 有 关 信 息 。 
第 二 段 :检查 及 修改 第 一 段 所 输 数 据 及 信息 。 第 三 
段 : 组 成 并 解 算法 方程 。 第 四 段 :进行 精度 评定 。 第 
五 段 :输出 平 差 值 及 单位 权 中 误差 和 平 差 值 函 数 的 
权 倒 数 。 

三 .简单 变量 及 数组 名 称 的 含义 

M :条 件 方 程式 个 数 

N :本 知 数 个 数 

A(1,J) :条 件 方 程式 之 系数 增 广 垂 阵 

FT : 平 差 值 函 数 式 之 系数 算 阵 

Q(L,J): 权 逆 阵 

\` 输 出 结果 

输出 的 结果 包括 :条件 方 程式 系数 及 常数 项 、 权 
晒 数 式 之 系数 阵 权 道 阵 .法 方程 式 之 系数 年 阵 、 所 解 
出 的 联系 数 .改正 数 和 矩阵 和 精度 评定 。 各 输出 部 分 的 
前 部 均 有 汉语 拼音 提示 。 

在 原 程序 中 , 须 对 和 拖 阵 进行 数 十 次 乘法 处 理 . 故 
我 们 编写 了 下 列子 程序 供 主 程序 调用 。 
860;， FOR 1=1 TON:，FOR J 王 1 TO M 
870， C=0 
880，， FOR K 王 1 TON 
890，C=C+Q(GK) * B(K,J) 
900:， NEXT K 
910，L(,J) 一 C 
920， NEXT J:NEXT I 
930:，， FOR 1I1==1 TON 
940:， CC=0 
950:，， FOR 人 K 王 1] TO M 
960:， CC 一 CC 二 LGLK) x* A(K,MT+1) 
970， NEXT K 
980.，， VV(L) =:CC 
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390 : 


NEXT | 


五 .示例 


某 一 按 不 等 权 观 测 的 基线 网 平 差 ,其 条 件 方程 
式 如 下 ( 选 自 4 控制 测量 计算 手册 ?150 页 )， 


一 V: 十 Vs 一 V4 十 Ve 一 V7 十 Vi 一 10， 87 一 0 


一 V 十 V: 一 V4 十 Vs 一 Vi 十 Vi 一 1.12=0 
一 VI 十 V: 一 Vs 十 V* 一 Vio 十 Vi 十 0. 41 一 0 


方程 式 


2. 88V 一 4. 84Vi 十 1. 96Ve 十 0.78V， 一 1. 91V 
十 1. 13V9 十 1. 62Vio 一 4. 06V 十 2. 44V: 十 7=0 


极 条 件 方程 式 
其 权 函 数 的 直线 形式 为 ， 


Fs 一 1.71V 一 1.71V: 十 4.84V4 一 4.84Vs 一 


1. 13Vs 十 1. 13V, 十 1. 62Vo 一 1.62Vi: 


示例 输出 的 (改正 数 ) 和 (精度 评定 ?结果 如 下 : 


(GAI ZHENG SHU ) 


V(1) 一 一 0. 080414 
V(2) 一 一 0. 13256 
V(3) 一 0. 11358 
V(4) 一 一 0. 20747 
V(5) 一 0. 93914 
_V(6) 一 一 0. 02730 
V(7) 一 一 0. 06202 
V(8) 一 0. 38165 
V(9) 一 一 0. 03338 
V(10) 一 一 0. 05027 
VCLL) 一 0. 22153 
V(12) 一 0. 00088 


(JING DU PING DING ) 


PVV 一 0. 34486 
LI/PF 一 3. 93187 
M0= 一 0. 29362 


M 王 M0 * \/(〈1 十 PF) 一 0. 58223 


欢迎 邮购 86.87.88 89 年 苹果 园 合 订 本 


求解 方程 式 


K(ID 及 改正 数 
V(l) 





七 .结束语 


用 主 元 消 友 法 求 道 算 阵 





以 A 的 右 半 部 分 为 单位 矩阵 


秆 找 列 的 绝对 侦 最 大 元 素 
用 A(CIL,J) 将 行 抑 家 规范 化 


Y 
N 





消去 第 ! 列 


REIURN 


本 文 应 用 线性 代数 的 理论 处 理 测 量 平 差 问题 。 
我 们 用 本 程序 对 《 测 基 平 差 基础 《控制 测 量 计算 手 
册 ; 等 书 中 的 大 量 条 件 平 差 问 题 进行 了 验算 ,结果 完 
全 一 致 。 其 正确 性 和 严密 性 已 得 到 了 证 实 。 因 而 具 


有 较 好 的 通用 性 。 


因 篇 幅 所 限 ,程序 略 。 需 要 者 与 作者 联系 。 


参考 资料 : 


1.《 测 量 平 差 基 础 》, 武 汉 测 绘 学 院 出 版 。 
2.《 近 制 测 量 学 》, 武 汉 测 绘 学院 出 版 。 
3.《 控 制 测量 计算 手册 》, 治 金工 业 出 版 社 出 版 。 


为 方便 读者 ,我 社 将 86 年 ,87 年 ,88 年 .89 年 的 苹果 园 杂 志 分 别 加 工 成 合 订 本 ,每 本 定价 5. 40 
元 ( 另 加 收 10% 邮 敬 ) 窝 购 者 可 从 邮局 或 银行 来 款 。 联 系 地 址 :山东 省 潍坊 市 东风 大 街 80 与 , 银 


行 : 淖 坊 市 工商 行 东 关 办 事 处 ,帐号 :896315。 数 量 不 多 ,和 欲 购 者 从 还 。 
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中 华 学 习 机 杂志 社 


“ 实用 程序 。 


CEC 一 XMF 汉字 转换 程序 


徐州 市 重型 机 械 厂 


“小 密 蜂 ”(XMFE 一 ID) 机 是 中 华 学 习 机 系列 中 功 
能 较 高 的 , 赂 增强 型 机 器 ,有 五 种 汉字 输入 方法 , 且 
具有 联想 词组 输入 系统 ,其 汉字 输入 速度 大 为 提高 。 
但 遗 馈 的 是 其 汉字 内 码 与 CEC 一 1 机 不 同 , 故 两 者 中 
文 BASIC 软件 不 兼容 ,使 得 CEC 机 上 的 汉字 在 XMF 
机 上 不 能 正常 显示 打印 。 如 要 移植 程序 , 则 需 重新 输 
入 汉字 部 分 ,在 没有 原 程序 清单 或 汉字 量 很 大 的 情 
况 下 ,这 项 工作 较 难 完成 。 为 此 本 文 将 介绍 一 个 小 程 
序 , 可 以 很 方便 地 将 CEC 机 上 的 汉字 程序 转换 为 能 
在 XMF 一 1 机 上 正常 使 用 的 汉字 程序 。 

一 、 程 序 说 明 

本 程序 行 号 取得 很 大 ,在 执行 时 自动 附加 到 被 
转换 的 程序 后 面 ,共存 于 内 存 中 。 

5 一 30 行 , 建 立 名 为 CEC 一 XMF 的 T 类 文件 。 

63110 一 63116 行 :连续 读 取 内 存 中 的 三 个 字 
节 , 并 判断 是 否 为 CEC 机 汉字 内 码 。 

63118 一 63126 行 ; 把 CEc 机 内 码 转换 为 XMF 
机 内 码 , 并 显示 已 转换 的 汉字 。 

63128 一 63136 行 :内 码 转换 子 程序 。 

二 、 使 用 方法 

在 DOS 系统 下 ,输入 本 程序 并 运行 , 即 在 盘 上 
建立 了 代码 转换 的 T 文 件 CEC 一 XMF。 用 LOAD 命 
令 装 入 要 转换 的 CEC 机 汉字 程序 。 键 入 EXEC 
CEC 一 xmF 后 , 即 开始 代码 目 动 转换 ,同时 显示 已 转 
换 的 汉字 , 待 显示 “转换 完 ” 时 ,再 把 程序 中 的 “PR # 
3" 改 为 “PR 并 5”, 即 可 在 xmF 一 1 机 上 运行 。 





本 EGFR 下定 让 打 中 65 站 GREENRRGERRCSRESFEGSRGEIRESEERESRESRGE5RGE65 让 556 站 5 站 65RE5 


。 通 讯 。 


户 义 


5 “REM CEC 一 XMF 汉字 转换 程序 
10 D$ =CHR$4 (4),PRINT D$i”OPEN CEC 一 XMF" ， 
PRINT D$ ”WRITE CEC 一 XMF" 
20 POKE 33,30,LIST 63110,63136 :PRINT "PR ## #5"， 
PRINT ”RUN63110" 
30 “PRINT ”DEL 63110,63136"” ,PRINT D $ ;”CLOSE CEC 
一 XMF"” ,END 
63110 “HOME,FOR N 王 2048 TO PEEK (176) * 256 十 
PEEK(175) 
63112 P=PEEK(N) :IF P( )127 THEN 63124 
63114 N=N 十 1:X 王 PEEK(N):IF X<28 OR X >>126 
THEN 63124 
63116 N=N 十 1:;Y=PEEK (N) ,IF Y <28 OR Y >>126 
THEN 63124 
63118 D=X:;GOSUB 63128:A=DD:=Y:GOSUB 63128， 
B 一 DD 
63120 K 一 P 一 1:POKE N 一 2,K:POKE N 一 1,A:POKE N 
,B 
63122 ”PRINT CHR$ (K);CHRS$(A);CHRS$(B)， 
63124 NEXT N:PRINT ,PRINT 
63126 PRINT“ 转换 完 ":END 
63128 IF D<< 34 THEN DD=D 十 4 
63130 IF D> 33 AND D<<44 THEN D=DD 二 3 
63132 IF D>>43 AND D<58 THEN DD 王 D 十 2 
63134 IF D>>57 AND D<<126 THEN DD=D+1 
63136 RETURN 





微机 职业 中 学 的 好 路 子 


为 适应 现代 化 建设 的 需要 ,河北 省 石家庄 市 第 
34 中 学 1984 年 改 办 成 微机 职业 高 中 一 一 市 第 二 职 
业 中 学 ,现在 教学 班 18 个 ,在 校 学 生 830 人 。 该 校 教 
职员 工 解 放 思 想 锐 意 改 革 , 走 出 了 一 条 职业 教育 的 
好 路 子 。 

在 学 习 理论 知识 的 基础 上 ,突出 抓 好 教学 的 实 
践 环节 ,是 该 校 的 重要 特征 。 学 校 设置 微机 机 房 三 
个 ,配备 各 种 微机 六 十 余 台 ,中 英文 打字 室 两 个 , 配 
备 复 印 机 .打字 机 共 18 台 ,微机 .复印 机 .打字 机 维 
修 室 各 -- 个 ,此 外 ,还 与 社会 联 办 的 生产 车 间 和 家 电 


维修 室 各 一 个 ,兼作 实习 基地 的 经 营 门 市 部 三 个 。 
学 校 给 学 生 提供 了 广阔 的 实践 场所 ,学 生 们 不 仅 初 
步 掌握 了 了 操作、 维修 和 编制 简单 软件 的 技能 ,而 且 ， 
指法 的 热 练 程度 得 到 了 很 大 提高 ,高 年 级 学 生 均 可 
达到 每 分 钟 输入 150 个 字符 以 上 
由 于 该 校 培养 的 学 生 在 思想 .知识 和 操作 技能 
上 都 有 良好 的 泰 质 ,毕业 分 配 后 ,能 迅速 担当 起 工 
作 , 受 到 普遍 重视 和 好 评 , 因 此 ,社会 有 关 各 界 纷纷 
主动 要 求 接纳 该 校 毕业 生 。 
〈 崔 来 党 。 李 瑞 龙 ) 
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“ 实用 程序 。 


中 华 机 汉字 文件 的 显示 打印 


坊 子 区 54698 部 队 


由 于 中 华 学 习 机 的 汉字 内 码 与 APPLE 一 荆 机 
的 国标 字形 字 词 汉 卡 的 汉字 内 码 不 同 , 所 以 ,不 能 将 
中 华 学 习 机 上 的 汉字 文件 直接 移植 到 配 有 国标 字形 
字 词 的 汉 卡 的 APPLE 一 引 机 上 使 用 。 对 于 较 大 的 汉 
字 文件 ,重新 输入 汉字 进行 修改 ,费力 .费时 ,而 且 很 
容易 出 错 。 针 对 这 一 问题 ,笔者 编写 了 一 段 小 程序 ， 
对 汉字 内 码 进行 转换 ,实现 了 中 华 学 习 机 汉字 文件 
在 APPLE 一 E 机 国标 字形 字 词 汉 卡 支持 下 实现 显 
示 . 打 印 。 现 介绍 如 下 : 

中 华 学 习 机 的 汉字 内 码 为 CHR$ (127) 十 CHR 
$ (Il1) 十 CHR$ (JJ)。 其 中 ,II. JJ 取 29 至 125 之 间 
的 值 ,并 去 掉 其 中 的 34.44 和 58 三 个 值 。 国 标 字 形 
字 词 汉 卡 的 汉字 内 码 为 CHR$(A) 十 CHR $ (B) 十 
CHR $ (C) 十 CHR$ (D), 其 中 ,ABC 和 D 取 97 至 
106 之 间 的 值 。 不 难看 出 上 述 两 种 汉字 内 码 在 编码 
方式 上 都 有 其 特殊 点 ,归纳 如 下 : 

1 .中 华 学 习 机 的 汉字 内 码 第 一 个 字符 必须 是 
CHR$ (127 ) ， 

2 .国标 字形 字 词 汉 卡 的 汉字 内 码 由 四 个 字符 组 
成 ,它们 是 a 一 jl10 个 小 写字 母 的 组 合 。 

这 两 点 是 编程 转换 的 重要 依据 ,下 面 简 述 一 下 
编程 思路 

1 .对 给 定 的 中 华 学 习 机 字符 串 A$ , 先 判断 其 
中 是 否 有 中 华 学 习 的 汉字 内 码 , 即 看 是 否 有 CHR 
$ (127) 字 符 , 知 有 则 对 CHR $ (127) 字 符 后 的 两 个 
字符 进行 处 理 ( 见 3) 。 

2. 若 没有 发 现 CHR $ (127? 字 符 , 则 必然 不 是 
汉字 内 码 , 不 转换 ,原样 送出 。 

3、 将 CHR $(127) 后 的 两 个 字符 转换 为 对 应 的 
区 位 码 。 

4 将 上 述 区 位 码 转换 为 APPL 
字形 字 词 汉 卡 的 汉字 内 码 。 

这 样 我们 就 可 将 中 华 学 习 机 的 汉字 内 码 转 换 为 
APPLE 一 下 机 的 国标 字形 字 启 汉 卡 的 汉字 内 码 , 下 
面 是 这 一 过 程 的 的 程序 清单 。 

10000  XX$ 王 ”7 

10010 L=LEN (A$ ) 

10020 “FOR KK 三 1 TO L 

10030 B$ 王 MID$CA$ KK,1) 
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" 机 的 国标 


孙 书 麻 


10040 IF ASC (B$ ) 王 127 THEN 10060 
10050 XX 叫 二 XX$$ 十 B$ ;GOTO 10190 
10060 FOR QQ =1ToO 2 
10070 B$= MID$(AS$ ,KK 二 QQ,1) 
10080 IF ASC (B$ )(35 THEN Z 一 ASC (B$ ) 一 28;GO- 
TO 10120 
10090 IF ASC(B$ )(45 THEN Z= ASC (B$ ) 一 29:GO- 
TO 10120 
10100 IF ASC (B$ )(58 THEN Z=ASC (B$ ) 一 30:GO- 
TO 10120 
10110 Z=ASC (B$) 一 31 
10120 C$ -STR$(Z):IF Z( 10THEN C$ =”"O0" 十 CS$ 
10130 U$ =MID$(CS 1):v$=MID$(Cc$ ,2,1) 
10140 U=49 二 ASC (U$ ):v=49+ASC (V$) 
10150 Z$ =CHR$(U) 十 CHR$(〈vV) 
10160 XXx$=Xx$ 十 Z4 
10170 NEXT QQ 
10180 KK 一 KK 十 2 
10190 NEXT KK 
10200 A$=XXf 
10210 GJ=FRE (0) 
10220 RETURN 
由 于 上 述 转换 需要 时 间 ,所 以 ,中 华 学 习 机 上 的 
汉字 文件 移植 到 APPLE 一 下 机 上 后 ,运行 速度 将 受 
影响 ,这 是 它 的 不 足 之 处 。 另 外 ,上 述 程序 连接 到 主 
程序 上 后 ,其 数值 变 莽 .字符 串 变量 与 主 程序 冲突 的 
要 进行 修改 。 
顺便 说 一 下 ,上 述 变 换 是 可 道 的 , 即 也 可 将 AP- 
PLE 一 革 机 国标 字形 字 词 汉 卡 支持 下 的 汉字 文件 移 
植 到 中 华 学 习 机 上 运行 。 其 体 过 程 不 再 更 述 。 下 面 
是 这 一 变换 的 程序 清单 。 
10000 XXS$ 二 "" 
10010 LL=LEN (Ag$ ) 
10020 “FOR KK=1 TO LL 
10030 B$=MID$(A$ ,KK,1) 
10040 IF ASC (B$) 一 >>97 AND ASC(B4 ) -= 106 
THEN 10060 
10050 XX$=XX$ 十 B$ ,GOTO 10240 
10060 X$=":FOR QQ=0TO 5 
10070 B$tQo)= MID$(Ad ,KK+QQ.1) 
10080 A(QQ)=ASC (B$(QQ)) 49 


。 实用 程序 。 
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中 华 学习 机 (CEC 一 TD) 在 中 文 状态 下 提供 了 三 
种 输入 方式 (字母 .拼音 .区 位 ), 它 们 是 通过 接 
“Fl1”“F2”“F3” 功 能 键 来 选择 不 同 输入 方式 ,其 功 
能 定义 如 下 : 

“F1" 键 :字母 输入 方式 。 

“F2” 键 :拼音 输入 方式 。 

“F3"” 键 :区 位 输入 方式 。 

在 执行 程序 的 INPUT 语句 时 ,我 们 觉得 用 功能 
键 “F1 "一 一 “F3?" 来 改变 汉字 的 输入 方式 很 不 方便 。 
例如 : 某 程序 中 有 如 下 两 个 语句 ， 

200 INPUT“ 请 输入 姓名 ”NA$ (LI) 

210 _ INPUT“ 请 输入 考试 得 分 ”DA(I) 

在 执行 200 语句 时 ,因为 要 输入 的 是 汉字 ,我 们 需要 
先 按 “F2” 键 进入 拼音 输入 状态 ,然后 再 输入 汉字 。 
而 执行 210 语句 时 ,我 们 又 要 选 接 “F1” 键 返回 字母 
状态 ,才能 输入 考试 得 分 。 如 果 我 们 要 输入 一 大 批 学 
生 的 姓名 和 考试 得 分 ,就 必须 频繁 地 按 “F22“F1” 
键 来 切换 输入 方式 , 即 麻烦 ,又 容易 出 错 。 能 不 能 让 
计算 机 自动 切换 输入 方式 呢 ? 回答 是 肯定 的 。 本 文 
将 介绍 在 程序 中 自动 切换 输入 方式 的 方法 。 

在 中 文 状态 下 , $ 3AE( 十 进 制 942) 单 元 是 汉字 
输入 方式 的 标志 单元 ,CEC 一 1 机 就 是 通过 检查 该 单 
元 的 值 来 确定 输入 方式 。 例 如 :执行 POKE942 ,151 
命令 后 ,计算 机 就 自动 切换 到 区 位 输入 方式 ,该 单元 


所 存 的 值 和 输入 方式 的 对 应 关系 如 下 : 
$ 3AE 单元 的 值 输入 方式 
129 字母 输入 方式 
140 拼音 输入 方式 
151 区 位 输入 方式 


I 汉字 输入 方式 的 目 动 转换 
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改变 $ 3AE 单元 的 值 , 虽 然 能 改变 CEC 一 I 机 中 
文 时 的 输入 方式 , 却 不 能 改变 屏幕 左下 角 的 姿态 提 
示 符 。 若 要 改变 状态 提示 符 , 还 需要 将 状态 提示 符 的 
首 地 址 存 入 零 页 的 251,252 两 个 存 贮 单元 ,再 用 
CALL 50030 调用 驻 机 的 “状态 字 显示 子 程序 " 即 可 。 
状态 字 的 首 地 址 是 ， 

“字母 ”的 首 地 址 低 . 高 位 是 :245 237 

“拼音 ”的 首 地 址 低 .高 位 是 :253 237 

“区 位 ”的 首 地 址 低 .高 位 是 :5 238 

下 面 是 用 BASIC 语言 编写 的 三 个 输入 方式 自 
动 切换 的 子 程序 ， 

9910 “POKE 942, 129, POKE 251, 245, POKE 
252, 237, CA22 50030, RETURN ,REM 
字母 

9920 “”POKE 942, 140, POKE 251, 253, POKE 
252, 237, CA22 50030; RETURN ; REM 

拼音 

9930 “POKE 942,151:POKE 251,5,POKE 252， 
238,CA22 50030;RETURN ;REM 区 位 

以 上 三 个 子 程序 能 分 别 使 计算 机 自动 切换 到 字 
母 , 拼 音 , 区 位 输入 方式 。 其 应 用 举例 如 下 : 

200 ”GOSUB 9920, INPUT“ 请 输入 姓名 ”NA 
$(D 

210 GOSUB 9910:,INPUT“ 请 输入 考试 得 分 ”DA 

(D) 
改变 后 的 程序 当 执 行 200 语句 时 ,计算 机 自动 
地 切换 到 汉字 输入 方式 ,而 执行 210 语句 时 计算 机 
又 自动 切换 到 字母 输入 方式 。 
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10090 X$=X$ 十 CHR$ (ACQQ)) 

10100 NEXT QQ 

10110 KK 三 KK 十 3 

10120 U$ =LEFT$CX$ ,2):V$ 王 RIGHTS$ (X$ ,2) 

10130 U(C1)=VAL (U$ ):U(2) 一 VALCV$ ) 

10140 X 一 ”” 

10150 FOR WW 一 1TO 2 

10160 IFUCWW)< 34THEN UC(WW) = 王 UCWW 1) 十 28: 
GOTO 10200 

10170 IFUC(WW) 一 44 THEN UC(WW) 王 UCWW) 十 29: 
GOTO 10200 


10180 IF U(ww)< 一 58 THEN U(WWw) =U(Ww) 十 30; 
GOTO 10200 

10190 U(wWw) =UC(ww) 十 31 

10200 X$=X$ 十 CHR$ (UC(wWw)) 

10210 NEXT ww 

10220 X$=CHR$ (127) 二 XS$ 

10230 XXS$ 一 XX$ 十 X$ 

10240 NEXT KK 

10250 A$=-XX$ 

10260 GJ=FRE (0) 

10270 RETURN 
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目前 ,CEC 一 I 型 中 华 学 习 机 已 大 量 进入 学 校 和 
家 庭 .在 用 CEC 一 I 型 学 习 机 进行 计算 机 辅助 教学 系 
统 及 其 它 应 用 程序 的 设计 中 ,常常 要 用 到 许多 非 英 
文字 母 及 特殊 符号 。 这 些 符 号 及 字母 往往 只 能 通过 
区 位 码 方式 调 出 ,而 有 关 区 位 码 的 资料 一 般 都 较 缺 
乏 。 本 程序 正 是 为 了 解决 中 华 学 习 机 汉字 或 符号 区 
位 码 的 自动 查询 打印 问题 。 

为 了 满足 各 种 需要 ,本 程序 设置 了 三 种 查询 方 
式 :1. 在 拼音 状态 下 输入 汉字 查 区 位 码 ;2. 在 区 位 码 
状态 下 直接 查找 汉字 (符号 );3. 分 区 查询 .打印 区 位 
码 一 汉字 (符号 ) 对 照 表 。 

实际 使 用 中 还 需 注 意 ,在 CEC 一 1 汉字 库 (1 一 94 
区 ) 中 ,第 10 区 到 第 15 区 都 是 空 库 。 程 序 中 第 426 
号 语句 是 设置 打印 对 照 表 时 每 行 打印 的 字数 ,此 语 
句 可 根据 打印 纸 的 宽度 自由 选取 。 根 据 本 程序 的 特 
点 ,很 容易 实现 全 字库 字典 的 区 位 码 一 汉字 (符号 ) 
对 照 表 自 动 输出 打印 工作 。 

10 HOME,PRINT" 1. 拼音 查询 2. 区 位 查询 

15 _ PRINT ”3. 分 区 有 询 4. 退出 系统 " 

20 PRINT "请 选择 :": :GET A 

25 IF A 王 4THEN END 

28  POKE 1659.0 

30 ON A GOSUB 200.300.400 

35 GOTO 10 

200 HOME 

202 INPUT "拼音 状态 输入 汉 了 :"3*A$ :L=LEN (A$ ) 
205 PRINT A$0 的 区 位 码 :”? 

210 FOR I=2TOL:P=ASC (MID (A$ ,1I,1)):GO- 

SUB 600;NEXT : PRINT :PRINT " 按 任 意 键 继续 !": 

GET H$ :RETURN 
300 HOME ;PRINT "区 位 存 询 ” 

302 _ INPUT ”请 输入 区 人 码 (1 一 一 94):”"5A 

305 _ INPUT “请 输入 仅 码 1- 一 91):73b 

310 上 =A:GOSUB 700:Q=FF:F=B:GOS UB 700:wWw== 

FF 

315 B$=CHR$(127) 二 CHRS$(Q) 十 CHR$(CW) 

320 GOSUB 800 

330 “PRINT " 碍 的 符 另 :":B$:PRINT“" 按 任意 键 继 
续 !"”:GET H$ :RETURN 

400 INPUT "请 输入 区 础 (1 一 一 94):735A 

401 L=0 

405 F=A:GOSUB 7n0:Q=FF 
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410 FOR 8 王 1 TO 914 

415 F=B,GOSUB 700:w=FF,B$ 一 CHR$(127) 十 
CHR$(Q) 十 CHR$(CW) 

420 GOSUB 800 

425 PRINT ””:B$ ”， 

426 L=L 十 1:IFL) 王 10 THEN PRINT "，":L=0 

427 NEXT 

428  POKE 1659 ,0 

430 INPUT “是 个 打 印 (Y/N)7”AS$ 

435 IF A$=“Y"”THEN CLEAR ;X=FRE(0):POKE 
1659 .1:POKE 2043,120:POKE 1915,5:GOTO 400 

440 RETURN 

600 IF P>28 AND P<34 THEN P 一 P 一 28 

605 IF P>>34 AND P<44 THEN P 一 P 一 29 

610 IF P>44 AND P<58 THEN P 一 P 一 30 

615 IFK P>58 AND P<126 THEN P 王 P 一 31 

620 IF P>10 THEN PRINT “0"4P:GOTO 5830 

625 ”PRINT Pi; 

630 RETURN 

700 IF F>>0 AND F<-6 THEN FF 一 28 十 F 

705 IF F>>5 AND F<15 THEN FF 一 29 十 F 

710 IF F>14 AND F 一 28 THEN FF 王 30 十 F 

715 IF F>27 AND F<=100 THEN FE=.31 十 F 

720 RETURN 

800 IF A<10 THEN PRINT“[” “0"”:A:GOTO 810 

805 PRINT“[”A 

810 IF B<10 THEN PRINT“0"”;B 忆 ]”， :GOTO 820 

815 PRINT B”]”， 

820 RETURN 
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《中 华 学 习 机 ?杂志 每 期 都 刊登 多 个 精彩 .实用 、 
有 趣 的 软件 ,其 中 必 有 您 所 喜欢 的 . 当 您 高 兴 地 读 完 
文章 , 欲 进一步 了 解 程序 的 奥妙 时 ,看 见 那些 元 长 的 
程序 清单 ,就 例 了 胃口 ! 为 了 减少 您 的 麻烦 ,节省 您 
的 宝贵 时 间 .我们 将 每 期 出 版 的 (中 华 学 习 机 ?杂志 
所 登载 的 程序 ,全 部 录入 在 一 张 高 质 荆 的 盘 厂 上 , 随 
杂志 同时 出 版 销售 ,欢迎 您 购 头 4 中 华 学 习 机 ?程序 
软盘 。 每 张 售 价 15 元 。 


金 国 育 少 年 计 草 机 
冬令 营 竞 赛 剪 影 


左 图 :全 国政 协 王 任 重 副 主席 出 席 冬 令 营 
并 作 了 重要 讲话 


下 图 : 计算 机 冬令 营 竟 赛 委 员 会 主任 潘 趣 德 
作 冬 令 营 筹备 工作 报告 


上 图 :全 国教 育 学 会 会 长 ,中华 学 习 机 
协会 理事 长 张 健在 大 会 上 宣读 
李铁映 同志 的 题词 
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和 证 于 从 末 过 丰 权 二 二 直下 大 居 天 而 二 下 避 丰 和 先后 开发 了 适用 于 
我 国 基础 教育 和 罕 庭 应 用 的 普及 型 计算 机 一 CEC-AI\ CECS M 中 华 学 习 机 ,组 织 全 国 十 刀 
家 计算 机 专业 厂家 协作 生产 WcEc 宇 中 华 机 已 有 十 余 万 台 进入 学校 和 家 庭 , 成 为 目前 产 
销 数量 最 大 的 国产 微机 系统 。 现 又 推出 新 型 CEC 一 PC、 CEC 一 IJA、CEC 一 JIR 型 中 华 学 习 
机 f CEC 一 PC 是 国内 同类 机 型 中 配置 最 齐 、 功 能 最 强 的 微机 产品 。CEC 一 A 的 存 路 量 比 
cEC--I 扩 大 一 倍 ,是 现行 芭 能 最 从 的 教学 用 机 。 
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《中 华 学 习 机 江原 苹果 园 ) 杂 志 读 者 评 刊 调查 表 





选 题 | 实用 | | 一 般 | | 差 | | 本 期 哪些 文章 对 您 最 适用 ? 


排版 | 好 | | 较 好 | | 差 | 

印刷 | 好 | | 较 好 | | 差 | 

发 行 | 及 时 | | 一般 | | 差 | 

抽 | | | 
设计 
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敬爱 的 读者 朋友 : 刊 , 奖 金 50 元 。 二 等 奖 ,赠阅 一 年 期 刊 ,奖金 30 元 .三 
您 好 ?中 华 学 习 机 )》 杂 志 的 创刊 ,得 到 您 和 广大 读 等 奖 ,赠阅 一 年 期 刊 ,奖金 10 元 。 效 励 奖 为 赠阅 一 年 期 
作者 及 各 界 同 仁 志 士 的 热情 支持 与 爱护 , 谨 此 致谢 ! 刊 。 


为 把 (中 华 学 习 机 ?办 好 ,我 们 诚 尽 地 欢迎 您 多 对 谢谢 您 的 合作 ,欢迎 您 继续 订阅 本 刊 和 积极 投稿 。 
本 刊 提出 宝贵 意见 。 为 鼓励 大 家 多 提 意 见 , 每 年 年 底 将 
以 “ 评 刊 调 查 表 " 为 依据 , 按 提 意 见 的 多 大 、 优 劣 及 实效 《中 华 学 习 机 杂志 社 
性 等 ,进行 有 奖 评比 活动 。 评 出 一 等 奖 一 名 ,二 等 奖 五 山东 省 潍坊 市 东风 大 衡 60 号 


名 ,三 等 奖 十 名 ,鼓励 奖 五 十 名 。 一 等 奖 ,赠阅 一 年 其 邮政 编码 :261041 





